Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Jump to bottom

Another bug in syntax-case? #169

Closed
gambiteer opened this issue Jan 8, 2016 · 4 comments
Closed

Another bug in syntax-case? #169

gambiteer opened this issue Jan 8, 2016 · 4 comments

Comments

@gambiteer
Copy link
Collaborator

I'm having trouble running Programming Praxis's standard prelude; details in the next comment.
@gambiteer
Copy link
Collaborator Author

Damn, you never know when to hit tab and when to hit enter to go to a new field.

With this version of gambit:

heine:~/Desktop> gsi -v
v4.8.2 20151209231631 x86_64-unknown-linux-gnu "./configure 'CC=gcc -march=native --param max-gcse-memory=134217728' '--enable-single-host' '--enable-multiple-versions' '--enable-gcc-opts' '--enable-shared'"

when you load this file (derived from an exercise in Programming Praxis):

http://www.math.purdue.edu/~lucier/gambit-issues/169/raw.scm

then you get the following error:

heine:~/Desktop> gsi -:s
Gambit v4.8.2

(load "raw.scm")
*** ERROR IN map -- invalid syntax
#(0 1 1 2 1 2 2 3 1 2 2 3 2 3 3 4 1 2 2 3 2 3 3 4 2 3 3 4 3 4 4 5 1 2 2 3 2 3 3 4 2 3 3 4 3 4 4 5 2 3 3 4 3 4 4 5 3 4 4 5 4 5 5 6 1 2 2 3 2 3 3 4 2 3 3 4 3 4 4 5 2 3 3 4 3 4 4 5 3 4 4 5 4 5 5 6 2 3 3 4 3 4 4 5...
1> ,b
0 map
1 #<procedure #2> "/usr/local/Gambit/v4.8.2/lib/syntax-case.scm"@7848:1 (map (lambda (%%e1388) (%%chi433 %%e1388 %%r1379 %%mr1380 %%w1381 %%m?...
2 map
3 #<procedure #3> "/usr/local/Gambit/v4.8.2/lib/syntax-case.scm"@8822:1 (%%chi-frobs430 (append %%inits1454 %%exprs1450) %%r1448 %%mr1449 %%m?...
4 #<procedure #4> "/usr/local/Gambit/v4.8.2/lib/syntax-case.scm"@11804:1 (%%chi-body438 (cons %%e11715 %%e21716) %%e1706 (%%extend-var-env_232 ...
5 ##call-with-values
6 #<procedure #5> "/usr/local/Gambit/v4.8.2/lib/syntax-case.scm"@5709:1 (%%chi433 %%rhs922 %%r888 %%r888 %%w923 #f)
7 #<procedure #6> "/usr/local/Gambit/v4.8.2/lib/syntax-case.scm"@5700:1 (%%rt-eval/residualize427 %%rtem891 (lambda () (sc#build-source %%ae90...
8 %%dobody884 "/usr/local/Gambit/v4.8.2/lib/syntax-case.scm"@5412:1 (%%chi-top384 (car %%body885) %%r876 %%w877 %%ctem879 %%rtem880 %%meta...
9 #<procedure #7> "/usr/local/Gambit/v4.8.2/lib/syntax-case.scm"@5411:1 (%%dobody884 (cdr %%body885))
...
101 | eval|
102 ##load
103 ##load
104 (interaction) (console)@1:1 (load "raw.scm")
1> ,2
2 map
1\2> ,e
1\2> ,1
1 #<procedure #2> "/usr/local/Gambit/v4.8.2/lib/syntax-case.scm"@7848.1 (map (lambda (%%e1388) (%%chi433 %%e1388 %%r1379 %%mr1380 %%w1381 %%m?...
1\1> ,e
%%e01386 = '(#(syntax-object lambda (("m" top) #(ribcage () () ()) shift #(ribcage #( x v e1 e2) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(...
%%e11387 = '(#(syntax-object #(#(source1) #(#(#(source1) 0 "/home/lucier/Desktop/raw.scm" 656093) #(#(source1) 1 "/home/lucier/Desktop/raw.scm" 787165) #(#(source1) 1 "/home/lucier/Desktop/raw.scm" 918237) #(#...
%%tmp1385 = '((#(syntax-object lambda (("m" top) #(ribcage () () ()) shift #(ribcage #(_ x v e1 e2) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) ...
%%tmp1384 = '((#(syntax-object lambda (("m" top) #(ribcage () () ()) shift #(ribcage #(_ x v e1 e2) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) ...
%%x1377 = '#(#(source1) (#(#(source1) lambda #f #f) #(#(source1) (#(#(source1) %%counts941 #f #f)) #f #f) #(#(source1) (#(#(source1) (#(#(source1) lambda #f #f) #(#(source1) (#(#(source1) %%len942 #f #f)) #f #...
%%e1378 = '((#(syntax-object lambda (("m" top) #(ribcage () () ()) shift #(ribcage #(_ x v e1 e2) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(...
%%r1379 = '(("i" lexical . %%bv940))
%%mr1380 = '()
%%w1381 = '(())
%%ae1382 = #f
%%m?1383 = #f
%%noexpand62 = "noexpand"
%%make-syntax-object63 = (lambda (%%expression460 %%wrap461) (vector 'syntax-object %%expression460 %%wrap461))
%%syntax-object?64 = (lambda (%%x462) (if (vector? %%x462) (if (= (vector-length %%x462) 3) (eq? (vector-ref %%x462 0) 'syntax-object) #f) #f))
%%syntax-object-expression65 = (lambda (%%x463) (vector-ref %%x463 1))
%%syntax-object-wrap66 = (lambda (%%x464) (vector-ref %%x464 2))
%%set-syntax-object-expression!67 = (lambda (%%x465 %%update466) (vector-set! %%x465 1 %%update466))
%%set-syntax-object-wrap!68 = (lambda (%%x467 %%update468) (vector-set! %%x467 2 %%update468))
%%top-level-eval-hook69 = (lambda (%%x469) (sc#eval (list %%noexpand62 %%x469)))
%%local-eval-hook70 = (lambda (%%x470) (sc#eval (list %%noexpand62 %%x470)))
%%define-top-level-value-hook71 = (lambda (%%sym471 %%val472) (%%top-level-eval-hook69 (sc#build-source #f (list (sc#build-source #f 'define) (sc#build-source #f %%sym471) ((lambda (%%x473) (if (sc#self-eval? ...
%%put-cte-hook72 = (lambda (%%symbol474 %%val475) ($sc-put-cte %%symbol474 %%val475 'top))
%%get-global-definition-hook73 = (lambda (%%symbol476) (sc#getprop %%symbol476 'sc-expander))
%%put-global-definition-hook74 = (lambda (%%symbol477 %%x478) (if (not %%x478) (sc#remprop %%symbol477 'sc-expander) (sc#putprop %%symbol477 '_sc-expander* %%x478)))
%%read-only-binding?75 = (lambda (%%symbol479) #f)
%%get-import-binding76 = (lambda (%%symbol480 %%token481) (sc#getprop %%symbol480 %%token481))
%%update-import-binding!77 = (lambda (%%symbol482 %%token483 %%p484) ((lambda (%%x485) (if (not %%x485) (sc#remprop %%symbol482 %%token483) (sc#putprop %%symbol482 %%token483 %%x485))) (%%p484 (%%get-import-bi...
%%generate-id78 = (lambda (%%name499) (set! %%n498 (+ %%n498 1)) (string->symbol (string-append %%session-key488 (%%fmt490 %%n498) (if %%name499 (string-append "." (symbol->string %%name499)) ""))))
%%built-lambda?152 = (lambda (%%x500) ((lambda (%%t501) (if %%t501 %%t501 (if (##source? %%x500) (if (pair? (##source-code %%x500)) (if (##source? (car (##source-code %%x500))) (eq? (##source-code (car (##sour...
%%build-sequence170 = (lambda (%%ae502 %%exps503) ((letrec ((%%loop504 (lambda (%%exps505) (if (null? (cdr %%exps505)) (car %%exps505) (if ((lambda (%%x506) ((lambda (%%t507) (if %%t507 %%t507 (if (##source? %...
%%build-letrec171 = (lambda (%%ae508 %%vars509 %%val-exps510 %%body-exp511) (if (null? %%vars509) %%body-exp511 (sc#build-source %%ae508 (list (sc#build-source %%ae508 'letrec) (sc#build-source %%ae508 (map (l...
%%build-body172 = (lambda (%%ae514 %%vars515 %%val-exps516 %%body-exp517) (%%build-letrec171 %%ae514 %%vars515 %%val-exps516 %%body-exp517))
%%build-top-module173 = (lambda (%%ae518 %%types519 %%vars520 %%val-exps521 %%body-exp522) (call-with-values (lambda () ((letrec ((%%f523 (lambda (%%types524 %%vars525) (if (null? %%types524) (values '() '() '...
%%sanitize-binding206 = (lambda (%%b534) (if (procedure? %%b534) (cons 'macro %%b534) (if (%%binding?220 %%b534) (if ((lambda (%%t535) (if (memv %%t535 '(core macro macro! deferred)) (procedure? (%%binding-val...
%%binding-type216 = car
%%binding-value217 = cdr
%%set-binding-type!218 = set-car!
%%set-binding-value!219 = set-cdr!
%%binding?220 = (lambda (%%x538) (if (pair? %%x538) (symbol? (car %%x538)) #f))
%%extend-env230 = (lambda (%%label539 %%binding540 %%r541) (cons (cons %%label539 %%binding540) %%r541))
%%extend-env_231 = (lambda (%%labels542 %%bindings543 %%r544) (if (null? %%labels542) %%r544 (%%extend-env_231 (cdr %%labels542) (cdr %%bindings543) (%%extend-env230 (car %%labels542) (car %%bindings543) %%r54...
%%extend-var-env_232 = (lambda (%%labels545 %%vars546 %%r547) (if (null? %%labels545) %%r547 (%%extend-var-env_232 (cdr %%labels545) (cdr %%vars546) (%%extend-env230 (car %%labels545) (cons 'lexical (car %%var...
%%displaced-lexical?233 = (lambda (%%id548 %%r549) ((lambda (%%n550) (if %%n550 ((lambda (%%b551) (eq? (%%binding-type216 %%b551) 'displaced-lexical)) (%%lookup236 %%n550 %%r549)) #f)) (%%id-var-name369 %%id54...
%%displaced-lexical-error234 = (lambda (%%id552) (syntax-error %%id552 (if (%%id-var-name369 %%id552 '(())) "identifier out of context" "identifier not visible")))
%%lookup_235 = (lambda (%%x553 %%r554) ((lambda (%%t555) (if %%t555 (cdr %%t555) (if (symbol? %%x553) ((lambda (%%t556) (if %%t556 %%t556 (cons 'global %%x553))) (%%get-global-definition-hook73 %%x553)) '(disp...
%%lookup236 = (lambda (%%x557 %%r558) (letrec ((%%whack-binding!559 (lambda (%%b560 %%_b561) (%%set-binding-type!218 %%b560 (%%binding-type216 %%_b561)) (%%set-binding-value!219 %%b560 (%%binding-value217 %%_b...
%%make-transformer-binding237 = (lambda (%%b563) ((lambda (%%t564) (if %%t564 %%t564 (syntax-error %%b563 "invalid transformer"))) (%%sanitize-binding206 %%b563)))
%%defer-or-eval-transformer238 = (lambda (%%eval565 %%x566) (if (%%built-lambda?152 %%x566) (cons 'deferred (lambda () (%%eval565 %%x566))) (%%make-transformer-binding237 (%%eval565 %%x566))))
%%global-extend239 = (lambda (%%type567 %%sym568 %%val569) (%%put-cte-hook72 %%sym568 (cons %%type567 %%val569)))
%%nonsymbol-id?240 = (lambda (%%x570) (if (%%syntax-object?64 %%x570) (symbol? ((lambda (%%e571) (if (sc#annotation? %%e571) (sc#annotation-expression %%e571) %%e571)) (%%syntax-object-expression65 %%x570))) #f))
%%id?241 = (lambda (%%x572) (if (symbol? %%x572) #t (if (%%syntax-object?64 %%x572) (symbol? ((lambda (%%e573) (if (sc#annotation? %%e573) (sc#annotation-expression %%e573) %%e573)) (%%syntax-object-expression...
%%id-marks247 = (lambda (%%id574) (if (%%syntax-object?64 %%id574) (%%wrap-marks251 (%%syntax-object-wrap66 %%id574)) (%%wrap-marks251 '((top)))))
%%id-subst248 = (lambda (%%id575) (if (%%syntax-object?64 %%id575) (%%wrap-subst252 (%%syntax-object-wrap66 %%id575)) (%%wrap-marks251 '((top)))))
%%id-sym-name&marks249 = (lambda (%%x576 %%w577) (if (%%syntax-object?64 %%x576) (values ((lambda (%%e578) (if (sc#annotation? %%e578) (sc#annotation-expression %%e578) %%e578)) (%%syntax-object-expression65 %...
%%make-wrap250 = cons
%%wrap-marks251 = car
%%wrap-subst252 = cdr
%%make-indirect-label290 = (lambda (%%label580) (vector 'indirect-label %%label580))
%%indirect-label?291 = (lambda (%%x581) (if (vector? %%x581) (if (= (vector-length %%x581) 2) (eq? (vector-ref %%x581 0) 'indirect-label) #f) #f))
%%indirect-label-label292 = (lambda (%%x582) (vector-ref %%x582 1))
%%set-indirect-label-label!293 = (lambda (%%x583 %%update584) (vector-set! %%x583 1 %%update584))
%%gen-indirect-label294 = (lambda () (%%make-indirect-label290 (%%gen-label297)))
%%get-indirect-label295 = (lambda (%%x585) (%%indirect-label-label292 %%x585))
%%set-indirect-label!296 = (lambda (%%x586 %%v587) (%%set-indirect-label-label!293 %%x586 %%v587))
%%gen-label297 = (lambda () (string #\i))
%%label?298 = (lambda (%%x588) ((lambda (%%t589) (if %%t589 %%t589 ((lambda (%%t590) (if %%t590 %%t590 (%%indirect-label?291 %%x588))) (symbol? %%x588)))) (string? %%x588)))
%%gen-labels299 = (lambda (%%ls591) (if (null? %%ls591) '() (cons (%%gen-label297) (%%gen-labels299 (cdr %%ls591)))))
%%make-ribcage300 = (lambda (%%symnames592 %%marks593 %%labels594) (vector 'ribcage %%symnames592 %%marks593 %%labels594))
%%ribcage?301 = (lambda (%%x595) (if (vector? %%x595) (if (= (vector-length %%x595) 4) (eq? (vector-ref %%x595 0) 'ribcage) #f) #f))
%%ribcage-symnames302 = (lambda (%%x596) (vector-ref %%x596 1))
%%ribcage-marks303 = (lambda (%%x597) (vector-ref %%x597 2))
%%ribcage-labels304 = (lambda (%%x598) (vector-ref %%x598 3))
%%set-ribcage-symnames!305 = (lambda (%%x599 %%update600) (vector-set! %%x599 1 %%update600))
%%set-ribcage-marks!306 = (lambda (%%x601 %%update602) (vector-set! %%x601 2 %%update602))
%%set-ribcage-labels!307 = (lambda (%%x603 %%update604) (vector-set! %%x603 3 %%update604))
%%make-top-ribcage308 = (lambda (%%key605 %%mutable?606) (vector 'top-ribcage %%key605 %%mutable?606))
%%top-ribcage?309 = (lambda (%%x607) (if (vector? %%x607) (if (= (vector-length %%x607) 3) (eq? (vector-ref %%x607 0) 'top-ribcage) #f) #f))
%%top-ribcage-key310 = (lambda (%%x608) (vector-ref %%x608 1))
%%top-ribcage-mutable?311 = (lambda (%%x609) (vector-ref %%x609 2))
%%set-top-ribcage-key!312 = (lambda (%%x610 %%update611) (vector-set! %%x610 1 %%update611))
%%set-top-ribcage-mutable?!313 = (lambda (%%x612 %%update613) (vector-set! %%x612 2 %%update613))
%%make-import-interface314 = (lambda (%%interface614 %%new-marks615) (vector 'import-interface %%interface614 %%new-marks615))
%%import-interface?315 = (lambda (%%x616) (if (vector? %%x616) (if (= (vector-length %%x616) 3) (eq? (vector-ref %%x616 0) 'import-interface) #f) #f))
%%import-interface-interface316 = (lambda (%%x617) (vector-ref %%x617 1))
%%import-interface-new-marks317 = (lambda (%%x618) (vector-ref %%x618 2))
%%set-import-interface-interface!318 = (lambda (%%x619 %%update620) (vector-set! %%x619 1 %%update620))
%%set-import-interface-new-marks!319 = (lambda (%%x621 %%update622) (vector-set! %%x621 2 %%update622))
%%make-env320 = (lambda (%%top-ribcage623 %%wrap624) (vector 'env %%top-ribcage623 %%wrap624))
%%env?321 = (lambda (%%x625) (if (vector? %%x625) (if (= (vector-length %%x625) 3) (eq? (vector-ref %%x625 0) 'env) #f) #f))
%%env-top-ribcage322 = (lambda (%%x626) (vector-ref %%x626 1))
%%env-wrap323 = (lambda (%%x627) (vector-ref %%x627 2))
%%set-env-top-ribcage!324 = (lambda (%%x628 %%update629) (vector-set! %%x628 1 %%update629))
%%set-env-wrap!325 = (lambda (%%x630 %%update631) (vector-set! %%x630 2 %%update631))
%%anti-mark335 = (lambda (%%w632) (%%make-wrap250 (cons #f (%%wrap-marks251 %%w632)) (cons 'shift (%%wrap-subst252 %%w632))))
%%barrier-marker340 = #f
%%extend-ribcage!345 = (lambda (%%ribcage633 %%id634 %%label635) (%%set-ribcage-symnames!305 %%ribcage633 (cons ((lambda (%%e636) (if (sc#annotation? %%e636) (sc#annotation-expression %%e636) %%e636)) (%%synta...
%%import-extend-ribcage!346 = (lambda (%%ribcage637 %%new-marks638 %%id639 %%label640) (%%set-ribcage-symnames!305 %%ribcage637 (cons ((lambda (%%e641) (if (sc#annotation? %%e641) (sc#annotation-expression %%e...
%%extend-ribcage-barrier!347 = (lambda (%%ribcage642 %%killer-id643) (%%extend-ribcage-barrier-help!348 %%ribcage642 (%%syntax-object-wrap66 %%killer-id643)))
%%extend-ribcage-barrier-help!348 = (lambda (%%ribcage644 %%wrap645) (%%set-ribcage-symnames!305 %%ribcage644 (cons %%barrier-marker340 (%%ribcage-symnames302 %%ribcage644))) (%%set-ribcage-marks!306 %%ribcage...
%%extend-ribcage-subst!349 = (lambda (%%ribcage646 %%import-iface647) (%%set-ribcage-symnames!305 %%ribcage646 (cons %%import-iface647 (%%ribcage-symnames302 %%ribcage646))))
%%lookup-import-binding-name350 = (lambda (%%sym648 %%marks649 %%token650 %%new-marks651) ((lambda (%%new652) (if %%new652 ((letrec ((%%f653 (lambda (%%new654) (if (pair? %%new654) ((lambda (%%t655) (if %%t655...
%%store-import-binding351 = (lambda (%%id656 %%token657 %%new-marks658) (letrec ((%%cons-id659 (lambda (%%id661 %%x662) (if (not %%x662) %%id661 (cons %%id661 %%x662)))) (%%weed660 (lambda (%%marks663 %%x664) ...
%%make-binding-wrap352 = (lambda (%%ids674 %%labels675 %%w676) (if (null? %%ids674) %%w676 (%%make-wrap250 (%%wrap-marks251 %%w676) (cons ((lambda (%%labelvec677) ((lambda (%%n678) ((lambda (%%symnamevec679 %%...
%%make-resolved-id353 = (lambda (%%fromsym686 %%marks687 %%tosym688) (%%make-syntax-object63 %%fromsym686 (%%make-wrap250 %%marks687 (list (%%make-ribcage300 (vector %%fromsym686) (vector %%marks687) (vector %...
%%id->resolved-id354 = (lambda (%%id689) (call-with-values (lambda () (%%id-var-name&marks367 %%id689 '(()))) (lambda (%%tosym690 %%marks691) (if (not %%tosym690) (syntax-error %%id689 "identifier not visible ...
%%resolved-id-var-name355 = (lambda (%%id694) (vector-ref (%%ribcage-labels304 (car (%%wrap-subst252 (%%syntax-object-wrap66 %%id694)))) 0))
%%smart-append356 = (lambda (%%m1695 %%m2696) (if (null? %%m2696) %%m1695 (append %%m1695 %%m2696)))
%%join-wraps357 = (lambda (%%w1697 %%w2698) ((lambda (%%m1699 %%s1700) (if (null? %%m1699) (if (null? %%s1700) %%w2698 (%%make-wrap250 (%%wrap-marks251 %%w2698) (%%join-subst359 %%s1700 (%%wrap-subst252 %%w269...
%%join-marks358 = (lambda (%%m1701 %%m2702) (%%smart-append356 %%m1701 %%m2702))
%%join-subst359 = (lambda (%%s1703 %%s2704) (%%smart-append356 %%s1703 %%s2704))
%%same-marks?360 = (lambda (%%x705 %%y706) ((lambda (%%t707) (if %%t707 %%t707 (if (not (null? %%x705)) (if (not (null? %%y706)) (if (eq? (car %%x705) (car %%y706)) (%%same-marks?360 (cdr %%x705) (cdr %%y706))...
%%diff-marks361 = (lambda (%%m1708 %%m2709) ((lambda (%%n1710 %%n2711) ((letrec ((%%f712 (lambda (%%n1713 %%m1714) (if (> %%n1713 %%n2711) (cons (car %%m1714) (%%f712 (- %%n1713 1) (cdr %%m1714))) (if (equal? ...
%%leave-implicit?362 = (lambda (%%token715) (eq? %%token715 'top))
%%new-binding363 = (lambda (%%sym716 %%marks717 %%token718) ((lambda (%%loc719) ((lambda (%%id720) (%%store-import-binding351 %%id720 %%token718 '()) (values %%loc719 %%id720)) (%%make-resolved-id353 %%sym716 ...
%%top-id-bound-var-name364 = (lambda (%%sym721 %%marks722 %%top-ribcage723) ((lambda (%%token724) ((lambda (%%t725) (if %%t725 ((lambda (%%id726) (if (symbol? %%id726) (if (%%read-only-binding?75 %%id726) (%%n...
%%top-id-free-var-name365 = (lambda (%%sym727 %%marks728 %%top-ribcage729) ((lambda (%%token730) ((lambda (%%t731) (if %%t731 ((lambda (%%id732) (if (symbol? %%id732) %%id732 (%%resolved-id-var-name355 %%id732...
%%id-var-name-loc&marks366 = (lambda (%%id735 %%w736) (letrec ((%%search737 (lambda (%%sym740 %%subst741 %%marks742) (if (null? %%subst741) (values #f %%marks742) ((lambda (%%fst743) (if (eq? %%fst743 'shift) ...
%%id-var-name&marks367 = (lambda (%%id785 %%w786) (call-with-values (lambda () (%%id-var-name-loc&marks366 %%id785 %%w786)) (lambda (%%label787 %%marks788) (values (if (%%indirect-label?291 %%label787) (%%get-...
%%id-var-name-loc368 = (lambda (%%id789 %%w790) (call-with-values (lambda () (%%id-var-name-loc&marks366 %%id789 %%w790)) (lambda (%%label791 %%marks792) %%label791)))
%%id-var-name369 = (lambda (%%id793 %%w794) (call-with-values (lambda () (%%id-var-name-loc&marks366 %%id793 %%w794)) (lambda (%%label795 %%marks796) (if (%%indirect-label?291 %%label795) (%%get-indirect-label...
%%free-id=?370 = (lambda (%%i797 %%j798) (if (eq? ((lambda (%%x799) ((lambda (%%e800) (if (sc#annotation? %%e800) (sc#annotation-expression %%e800) %%e800)) (if (%%syntax-object?64 %%x799) (%%syntax-object-exp...
%%literal-id=?371 = (lambda (%%id803 %%literal804) (if (eq? ((lambda (%%x805) ((lambda (%%e806) (if (sc#annotation? %%e806) (sc#annotation-expression %%e806) %%e806)) (if (%%syntax-object?64 %%x805) (%%syntax-...
%%help-bound-id=?372 = (lambda (%%i.sym814 %%i.marks815 %%j.sym816 %%j.marks817) (if (eq? %%i.sym814 %%j.sym816) (%%same-marks?360 %%i.marks815 %%j.marks817) #f))
%%bound-id=?373 = (lambda (%%i818 %%j819) (%%help-bound-id=?372 ((lambda (%%x820) ((lambda (%%e821) (if (sc#annotation? %%e821) (sc#annotation-expression %%e821) %%e821)) (if (%%syntax-object?64 %%x820) (%%syn...
%%valid-bound-ids?374 = (lambda (%%ids824) (if ((letrec ((%%all-ids?825 (lambda (%%ids826) ((lambda (%%t827) (if %%t827 %%t827 (if (%%id?241 (car %%ids826)) (%%all-ids?825 (cdr %%ids826)) #f))) (null? %%ids826...
%%distinct-bound-ids?375 = (lambda (%%ids828) ((letrec ((%%distinct?829 (lambda (%%ids830) ((lambda (%%t831) (if %%t831 %%t831 (if (not (%%bound-id-member?377 (car %%ids830) (cdr %%ids830))) (%%distinct?829 (c...
%%invalid-ids-error376 = (lambda (%%ids832 %%exp833 %%class834) ((letrec ((%%find835 (lambda (%%ids836 %%gooduns837) (if (null? %%ids836) (syntax-error %%exp833) (if (%%id?241 (car %%ids836)) (if (%%bound-id-m...
%%bound-id-member?377 = (lambda (%%x838 %%list839) (if (not (null? %%list839)) ((lambda (%%t840) (if %%t840 %%t840 (%%bound-id-member?377 %%x838 (cdr %%list839)))) (%%bound-id=?373 %%x838 (car %%list839))) #f))
%%wrap378 = (lambda (%%x841 %%w842) (if (if (null? (%%wrap-marks251 %%w842)) (null? (%%wrap-subst252 %%w842)) #f) %%x841 (if (%%syntax-object?64 %%x841) (%%make-syntax-object63 (%%syntax-object-expression65 %%...
%%source-wrap379 = (lambda (%%x843 %%w844 %%ae845) (%%wrap378 (if (sc#annotation? %%ae845) (begin (if (not (eq? (sc#annotation-expression %%ae845) %%x843)) (error "internal error in source-wrap: ae/x mismatch"...
%%chi-when-list380 = (lambda (%%when-list846 %%w847) (map (lambda (%%x848) (if (%%literal-id=?371 %%x848 '#(syntax-object compile ((top) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage () () ()) ...
%%syntax-type381 = (lambda (%%e849 %%r850 %%w851 %%ae852 %%rib853) (if (symbol? %%e849) ((lambda (%%n854) ((lambda (%%b855) ((lambda (%%type856) ((lambda () ((lambda (%%t857) (if (memv %%t857 '(macro macro!)) ...
%%chi-top_382 = (lambda (%%e864 %%r865 %%w866 %%ctem867 %%rtem868 %%meta?869 %%top-ribcage870) ((lambda (%%meta-residuals871) (letrec ((%%meta-residualize!872 (lambda (%%x873) (set! %%meta-residuals871 (cons %...
%%chi-top-sequence383 = (lambda (%%body875 %%r876 %%w877 %%ae878 %%ctem879 %%rtem880 %%meta?881 %%ribcage882 %%meta-residualize!883) (%%build-sequence170 %%ae878 ((letrec ((%%dobody884 (lambda (%%body885) (if ...
%%chi-top384 = (lambda (%%e887 %%r888 %%w889 %%ctem890 %%rtem891 %%meta?892 %%top-ribcage893 %%meta-residualize!894 %%meta-seen?895) (call-with-values (lambda () (%%syntax-type381 %%e887 %%r888 %%w889 #f %%top...
%%flatten-exports385 = (lambda (%%exports953) ((letrec ((%%loop954 (lambda (%%exports955 %%ls956) (if (null? %%exports955) %%ls956 (%%loop954 (cdr %%exports955) (if (pair? (car %%exports955)) (%%loop954 (car %...
%%make-interface386 = (lambda (%%marks957 %%exports958 %%token959) (vector 'interface %%marks957 %%exports958 %%token959))
%%interface?387 = (lambda (%%x960) (if (vector? %%x960) (if (= (vector-length %%x960) 4) (eq? (vector-ref %%x960 0) 'interface) #f) #f))
%%interface-marks388 = (lambda (%%x961) (vector-ref %%x961 1))
%%interface-exports389 = (lambda (%%x962) (vector-ref %%x962 2))
%%interface-token390 = (lambda (%%x963) (vector-ref %%x963 3))
%%set-interface-marks!391 = (lambda (%%x964 %%update965) (vector-set! %%x964 1 %%update965))
%%set-interface-exports!392 = (lambda (%%x966 %%update967) (vector-set! %%x966 2 %%update967))
%%set-interface-token!393 = (lambda (%%x968 %%update969) (vector-set! %%x968 3 %%update969))
%%make-unresolved-interface394 = (lambda (%%mid970 %%exports971) (%%make-interface386 (%%wrap-marks251 (%%syntax-object-wrap66 %%mid970)) (list->vector (map (lambda (%%x972) (if (pair? %%x972) (car %%x972) %%x...
%%make-resolved-interface395 = (lambda (%%mid973 %%exports974 %%token975) (%%make-interface386 (%%wrap-marks251 (%%syntax-object-wrap66 %%mid973)) (list->vector (map (lambda (%%x976) (%%id->resolved-id354 (if ...
%%make-module-binding396 = (lambda (%%type977 %%id978 %%label979 %%imps980 %%val981 %%exported982) (vector 'module-binding %%type977 %%id978 %%label979 %%imps980 %%val981 %%exported982))
%%module-binding?397 = (lambda (%%x983) (if (vector? %%x983) (if (= (vector-length %%x983) 7) (eq? (vector-ref %%x983 0) 'module-binding) #f) #f))
%%module-binding-type398 = (lambda (%%x984) (vector-ref %%x984 1))
%%module-binding-id399 = (lambda (%%x985) (vector-ref %%x985 2))
%%module-binding-label400 = (lambda (%%x986) (vector-ref %%x986 3))
%%module-binding-imps401 = (lambda (%%x987) (vector-ref %%x987 4))
%%module-binding-val402 = (lambda (%%x988) (vector-ref %%x988 5))
%%module-binding-exported403 = (lambda (%%x989) (vector-ref %%x989 6))
%%set-module-binding-type!404 = (lambda (%%x990 %%update991) (vector-set! %%x990 1 %%update991))
%%set-module-binding-id!405 = (lambda (%%x992 %%update993) (vector-set! %%x992 2 %%update993))
%%set-module-binding-label!406 = (lambda (%%x994 %%update995) (vector-set! %%x994 3 %%update995))
%%set-module-binding-imps!407 = (lambda (%%x996 %%update997) (vector-set! %%x996 4 %%update997))
%%set-module-binding-val!408 = (lambda (%%x998 %%update999) (vector-set! %%x998 5 %%update999))
%%set-module-binding-exported!409 = (lambda (%%x1000 %%update1001) (vector-set! %%x1000 6 %%update1001))
%%create-module-binding410 = (lambda (%%type1002 %%id1003 %%label1004 %%imps1005 %%val1006) (%%make-module-binding396 %%type1002 %%id1003 %%label1004 %%imps1005 %%val1006 #f))
%%make-frob411 = (lambda (%%e1007 %%meta?1008) (vector 'frob %%e1007 %%meta?1008))
%%frob?412 = (lambda (%%x1009) (if (vector? %%x1009) (if (= (vector-length %%x1009) 3) (eq? (vector-ref %%x1009 0) 'frob) #f) #f))
%%frob-e413 = (lambda (%%x1010) (vector-ref %%x1010 1))
%%frob-meta?414 = (lambda (%%x1011) (vector-ref %%x1011 2))
%%set-frob-e!415 = (lambda (%%x1012 %%update1013) (vector-set! %%x1012 1 %%update1013))
%%set-frob-meta?!416 = (lambda (%%x1014 %%update1015) (vector-set! %%x1014 2 %%update1015))
%%chi-top-module417 = (lambda (%%orig1016 %%r1017 %%mr1018 %%top-ribcage1019 %%ribcage1020 %%ctem1021 %%rtem1022 %%meta?1023 %%id1024 %%exports1025 %%forms1026 %%meta-residualize!1027) ((lambda (%%fexports1028...
%%id-set-diff418 = (lambda (%%exports1089 %%defs1090) (if (null? %%exports1089) '() (if (%%bound-id-member?377 (car %%exports1089) %%defs1090) (%%id-set-diff418 (cdr %%exports1089) %%defs1090) (cons (car %%exp...
%%check-module-exports419 = (lambda (%%source-exp1091 %%fexports1092 %%ids1093) (letrec ((%%defined?1094 (lambda (%%e1095 %%ids1096) (sc#ormap (lambda (%%x1097) (if (%%import-interface?315 %%x1097) ((lambda (%...
%%check-defined-ids420 = (lambda (%%source-exp1118 %%ls1119) (letrec ((%%vfold1120 (lambda (%%v1123 %%p1124 %%cls1125) ((lambda (%%len1126) ((letrec ((%%lp1127 (lambda (%%i1128 %%cls1129) (if (fx= %%i1128 %%le...
%%chi-external421 = (lambda (%%ribcage1170 %%source-exp1171 %%body1172 %%r1173 %%mr1174 %%ctem1175 %%exports1176 %%fexports1177 %%meta-residualize!1178) (letrec ((%%return1179 (lambda (%%r1182 %%mr1183 %%bindi...
%%vmap422 = (lambda (%%fn1282 %%v1283) ((letrec ((%%do1284 (lambda (%%i1285 %%ls1286) (if (fx< %%i1285 0) %%ls1286 (%%do1284 (fx- %%i1285 1) (cons (%%fn1282 (vector-ref %%v1283 %%i1285)) %%ls1286)))))) %%do128...
%%vfor-each423 = (lambda (%%fn1287 %%v1288) ((lambda (%%len1289) ((letrec ((%%do1290 (lambda (%%i1291) (if (not (fx= %%i1291 %%len1289)) (begin (%%fn1287 (vector-ref %%v1288 %%i1291)) (%%do1290 (fx+ %%i1291 1)...
%%do-top-import424 = (lambda (%%import-only?1292 %%top-ribcage1293 %%mid1294 %%token1295) (sc#build-source #f (list (sc#build-source #f '$sc-put-cte) (sc#build-source #f (list (sc#build-source #f 'quote) (sc#a...
%%update-mode-set425 = (lambda (%%when-list1298 %%mode-set1299) (letrec ((%%remq1300 (lambda (%%x1301 %%ls1302) (if (null? %%ls1302) '() (if (eq? (car %%ls1302) %%x1301) (%%remq1300 %%x1301 (cdr %%ls1302)) (co...
%%initial-mode-set426 = (lambda (%%when-list1306 %%compiling-a-file1307) (apply append (map (lambda (%%s1308) (if %%compiling-a-file1307 ((lambda (%%t1309) (if (memv %%t1309 '(compile)) '(c) (if (memv %%t1309 ...
%%rt-eval/residualize427 = (lambda (%%rtem1311 %%thunk1312) (if (memq 'e %%rtem1311) (%%thunk1312) ((lambda (%%thunk1313) (if (memq 'v %%rtem1311) (if ((lambda (%%t1314) (if %%t1314 %%t1314 (memq 'r %%rtem1311...
%%ct-eval/residualize2428 = (lambda (%%ctem1317 %%thunk1318) ((lambda (%%t1319) (%%ct-eval/residualize3429 %%ctem1317 (lambda () (if (not %%t1319) (set! %%t1319 (%%thunk1318)) (void)) (%%top-level-eval-hook69 ...
%%ct-eval/residualize3429 = (lambda (%%ctem1321 %%eval-thunk1322 %%residualize-thunk1323) (if (memq 'e %%ctem1321) (begin (%%eval-thunk1322) (%%chi-void453)) (begin (if (memq 'c %%ctem1321) (%%eval-thunk1322) ...
%%chi-frobs430 = (lambda (%%frob_1326 %%r1327 %%mr1328 %%m?1329) (map (lambda (%%x1330) (%%chi433 (%%frob-e413 %%x1330) %%r1327 %%mr1328 '(()) %%m?1329)) %%frob_1326))
%%chi-meta-frob431 = (lambda (%%x1331 %%mr1332) (%%chi433 (%%frob-e413 %%x1331) %%mr1332 %%mr1332 '(()) #t))
%%chi-sequence432 = (lambda (%%body1333 %%r1334 %%mr1335 %%w1336 %%ae1337 %%m?1338) (%%build-sequence170 %%ae1337 ((letrec ((%%dobody1339 (lambda (%%body1340) (if (null? %%body1340) '() ((lambda (%%first1341) ...
%%chi433 = (lambda (%%e1342 %%r1343 %%mr1344 %%w1345 %%m?1346) (call-with-values (lambda () (%%syntax-type381 %%e1342 %%r1343 %%w1345 #f #f)) (lambda (%%type1347 %%value1348 %%e1349 %%w1350 %%ae1351) (%%chi-ex...
%%chi-expr434 = (lambda (%%type1352 %%value1353 %%e1354 %%r1355 %%mr1356 %%w1357 %%ae1358 %%m?1359) ((lambda (%%t1360) (if (memv %%t1360 '(lexical)) (sc#build-source %%ae1358 %%value1353) (if (memv %%t1360 '(c...
%%chi-application435 = (lambda (%%x1377 %%e1378 %%r1379 %%mr1380 %%w1381 %%ae1382 %%m?1383) ((lambda (%%tmp1384) ((lambda (%%tmp1385) (if %%tmp1385 (apply (lambda (%%e01386 %%e11387) (sc#build-source %%ae1382 ...
%%chi-set!436 = (lambda (%%e1391 %%r1392 %%w1393 %%ae1394 %%rib1395) ((lambda (%%tmp1396) ((lambda (%%tmp1397) (if (if %%tmp1397 (apply (lambda (%%_1398 %%id1399 %%val1400) (%%id?241 %%id1399)) %%tmp1397) #f) ...
%%chi-macro437 = (lambda (%%p1421 %%e1422 %%r1423 %%w1424 %%ae1425 %%rib1426) (letrec ((%%rebuild-macro-output1427 (lambda (%%x1428 %%m1429) (if (pair? %%x1428) (cons (%%rebuild-macro-output1427 (car %%x1428) ...
%%chi-body438 = (lambda (%%body1439 %%outer-form1440 %%r1441 %%mr1442 %%w1443 %%m?1444) ((lambda (%%ribcage1445) ((lambda (%%w1446) ((lambda (%%body1447) ((lambda () (call-with-values (lambda () (%%chi-interna...
%%chi-internal439 = (lambda (%%ribcage1456 %%source-exp1457 %%body1458 %%r1459 %%mr1460 %%m?1461) (letrec ((%%return1462 (lambda (%%r1463 %%mr1464 %%exprs1465 %%ids1466 %%vars1467 %%vals1468 %%inits1469) (%%ch...
%%import-mark-delta440 = (lambda (%%mid1552 %%iface1553) (%%diff-marks361 (%%id-marks247 %%mid1552) (%%interface-marks388 %%iface1553)))
%%lookup-import-label441 = (lambda (%%id1554) ((lambda (%%label1555) (if (not %%label1555) (syntax-error %%id1554 "exported identifier not visible") (void)) %%label1555) (%%id-var-name-loc368 %%id1554 '(()))))
%%do-import!442 = (lambda (%%import-iface1556 %%ribcage1557) ((lambda (%%ie1558) (if (<= (vector-length %%ie1558) 20) ((lambda (%%new-marks1559) (%%vfor-each423 (lambda (%%id1560) (%%import-extend-ribcage!346 ...
%%parse-module443 = (lambda (%%e1561 %%w1562 %%ae1563 %%_w1564) (letrec ((%%listify1565 (lambda (%%exports1566) (if (null? %%exports1566) '() (cons ((lambda (%%tmp1567) ((lambda (%%tmp1568) (if %%tmp1568 (appl...
%%parse-import444 = (lambda (%%e1588 %%w1589 %%ae1590) ((lambda (%%tmp1591) ((lambda (%%tmp1592) (if (if %%tmp1592 (apply (lambda (%%_1593 %%orig1594 %%mid1595) (%%id?241 %%mid1595)) %%tmp1592) #f) (apply (lam...
%%parse-define445 = (lambda (%%e1607 %%w1608 %%ae1609) ((lambda (%%tmp1610) ((lambda (%%tmp1611) (if (if %%tmp1611 (apply (lambda (%%_1612 %%name1613 %%val1614) (%%id?241 %%name1613)) %%tmp1611) #f) (apply (la...
%%parse-define-syntax446 = (lambda (%%e1636 %%w1637 %%ae1638) ((lambda (%%tmp1639) ((lambda (%%tmp1640) (if (if %%tmp1640 (apply (lambda (%%_1641 %%name1642 %%id1643 %%e11644 %%e21645) (if (%%id?241 %%name1642...
%%parse-meta447 = (lambda (%%e1660 %%w1661 %%ae1662) ((lambda (%%tmp1663) ((lambda (%%tmp1664) (if %%tmp1664 (apply (lambda (%%_1665 %%form1666) %%form1666) %%tmp1664) ((lambda (%%_1667) (syntax-error (%%sourc...
%%parse-eval-when448 = (lambda (%%e1668 %%w1669 %%ae1670) ((lambda (%%tmp1671) ((lambda (%%tmp1672) (if %%tmp1672 (apply (lambda (%%_1673 %%x1674 %%e11675 %%e21676) (values (%%chi-when-list380 %%x1674 %%w1669)...
%%parse-alias449 = (lambda (%%e1680 %%w1681 %%ae1682) ((lambda (%%tmp1683) ((lambda (%%tmp1684) (if (if %%tmp1684 (apply (lambda (%%_1685 %%new-id1686 %%old-id1687) (if (%%id?241 %%new-id1686) (%%id?241 %%old-...
%%parse-begin450 = (lambda (%%e1692 %%w1693 %%ae1694 %%empty-okay?1695) ((lambda (%%tmp1696) ((lambda (%%tmp1697) (if (if %%tmp1697 (apply (lambda (%%_1698) %%empty-okay?1695) %%tmp1697) #f) (apply (lambda (%%...
%%chi-lambda-clause451 = (lambda (%%e1706 %%c1707 %%r1708 %%mr1709 %%w1710 %%m?1711) ((lambda (%%tmp1712) ((lambda (%%tmp1713) (if %%tmp1713 (apply (lambda (%%id1714 %%e11715 %%e21716) ((lambda (%%ids1717) (if...
%%chi-local-syntax452 = (lambda (%%rec?1734 %%e1735 %%r1736 %%mr1737 %%w1738 %%ae1739) ((lambda (%%tmp1740) ((lambda (%%tmp1741) (if %%tmp1741 (apply (lambda (%%1742 %%id1743 %%val1744 %%e11745 %%e21746) ((la...
%%chi-void453 = (lambda () (sc#build-source #f (cons (sc#build-source #f 'void) '())))
%%ellipsis?454 = (lambda (%%x1758) (if (%%nonsymbol-id?240 %%x1758) (%%literal-id=?371 %%x1758 '#(syntax-object ... ((top) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage (lambda-var-list gen-var...
%%strip-annotation455 = (lambda (%%x1759) (if (pair? %%x1759) (cons (%%strip-annotation455 (car %%x1759)) (%%strip-annotation455 (cdr %%x1759))) (if (sc#annotation? %%x1759) (sc#annotation-stripped %%x1759) %%...
%%strip_456 = (lambda (%%x1760 %%w1761 %%fn1762) (if (memq 'top (%%wrap-marks251 %%w1761)) (%%fn1762 %%x1760) ((letrec ((%%f1763 (lambda (%%x1764) (if (%%syntax-object?64 %%x1764) (%%strip_456 (%%syntax-object...
%%strip457 = (lambda (%%x1769 %%w1770) (%%strip_456 %%x1769 %%w1770 (lambda (%%x1771) (if ((lambda (%%t1772) (if %%t1772 %%t1772 (if (pair? %%x1771) (sc#annotation? (car %%x1771)) #f))) (sc#annotation? %%x1771...
%%gen-var458 = (lambda (%%id1773) ((lambda (%%id1774) (if (sc#annotation? %%id1774) (sc#gensym (sc#annotation-expression %%id1774)) (sc#gensym %%id1774))) (if (%%syntax-object?64 %%id1773) (%%syntax-object-exp...
%%lambda-var-list459 = (lambda (%%vars1775) ((letrec ((%%lvl1776 (lambda (%%vars1777 %%ls1778 %%w1779) (if (pair? %%vars1777) (%%lvl1776 (cdr %%vars1777) (cons (%%wrap378 (car %%vars1777) %%w1779) %%ls1778) %%...
1\1> #2
#<procedure #2>
1\1> (pp #2)
(lambda (%%e01386 %%e11387) (sc#build-source %%ae1382 (cons %%x1377 (map (lambda (%%e1388) (%%chi433 %%e1388 %%r1379 %%mr1380 %%w1381 %%m?1383)) %%e11387))))
1\1> %%e11387
(#(syntax-object
#(#(source1)
#(#(#(source1) 0 "/home/lucier/Desktop/raw.scm" 656093)
#(#(source1) 1 "/home/lucier/Desktop/raw.scm" 787165)
#(#(source1) 1 "/home/lucier/Desktop/raw.scm" 918237)
#(#(source1) 2 "/home/lucier/Desktop/raw.scm" 1049309)
#(#(source1) 1 "/home/lucier/Desktop/raw.scm" 1180381)
#(#(source1) 2 "/home/lucier/Desktop/raw.scm" 1311453)
#(#(source1) 2 "/home/lucier/Desktop/raw.scm" 1442525)
#(#(source1) 3 "/home/lucier/Desktop/raw.scm" 1573597)
#(#(source1) 1 "/home/lucier/Desktop/raw.scm" 1704669)
#(#(source1) 2 "/home/lucier/Desktop/raw.scm" 1835741)
#(#(source1) 2 "/home/lucier/Desktop/raw.scm" 1966813)
#(#(source1) 3 "/home/lucier/Desktop/raw.scm" 2097885)
#(#(source1) 2 "/home/lucier/Desktop/raw.scm" 2228957)
#(#(source1) 3 "/home/lucier/Desktop/raw.scm" 2360029)
#(#(source1) 3 "/home/lucier/Desktop/raw.scm" 2491101)
#(#(source1) 4 "/home/lucier/Desktop/raw.scm" 2622173)
#(#(source1) 1 "/home/lucier/Desktop/raw.scm" 2753245)
#(#(source1) 2 "/home/lucier/Desktop/raw.scm" 2884317)
#(#(source1) 2 "/home/lucier/Desktop/raw.scm" 3015389)
#(#(source1) 3 "/home/lucier/Desktop/raw.scm" 3146461)
#(#(source1) 2 "/home/lucier/Desktop/raw.scm" 3277533)
#(#(source1) 3 "/home/lucier/Desktop/raw.scm" 3408605)
#(#(source1) 3 "/home/lucier/Desktop/raw.scm" 3539677)
#(#(source1) 4 "/home/lucier/Desktop/raw.scm" 3670749)
#(#(source1) 2 "/home/lucier/Desktop/raw.scm" 3801821)
#(#(source1) 3 "/home/lucier/Desktop/raw.scm" 3932893)
#(#(source1) 3 "/home/lucier/Desktop/raw.scm" 4063965)
#(#(source1) 4 "/home/lucier/Desktop/raw.scm" 4195037)
#(#(source1) 3 "/home/lucier/Desktop/raw.scm" 4326109)
#(#(source1) 4 "/home/lucier/Desktop/raw.scm" 4457181)
#(#(source1) 4 "/home/lucier/Desktop/raw.scm" 4588253)
#(#(source1) 5 "/home/lucier/Desktop/raw.scm" 4719325)
#(#(source1) 1 "/home/lucier/Desktop/raw.scm" 656094)
#(#(source1) 2 "/home/lucier/Desktop/raw.scm" 787166)
#(#(source1) 2 "/home/lucier/Desktop/raw.scm" 918238)
#(#(source1) 3 "/home/lucier/Desktop/raw.scm" 1049310)
#(#(source1) 2 "/home/lucier/Desktop/raw.scm" 1180382)
#(#(source1) 3 "/home/lucier/Desktop/raw.scm" 1311454)
#(#(source1) 3 "/home/lucier/Desktop/raw.scm" 1442526)
#(#(source1) 4 "/home/lucier/Desktop/raw.scm" 1573598)
#(#(source1) 2 "/home/lucier/Desktop/raw.scm" 1704670)
#(#(source1) 3 "/home/lucier/Desktop/raw.scm" 1835742)
#(#(source1) 3 "/home/lucier/Desktop/raw.scm" 1966814)
#(#(source1) 4 "/home/lucier/Desktop/raw.scm" 2097886)
#(#(source1) 3 "/home/lucier/Desktop/raw.scm" 2228958)
#(#(source1) 4 "/home/lucier/Desktop/raw.scm" 2360030)
#(#(source1) 4 "/home/lucier/Desktop/raw.scm" 2491102)
#(#(source1) 5 "/home/lucier/Desktop/raw.scm" 2622174)
#(#(source1) 2 "/home/lucier/Desktop/raw.scm" 2753246)
#(#(source1) 3 "/home/lucier/Desktop/raw.scm" 2884318)
#(#(source1) 3 "/home/lucier/Desktop/raw.scm" 3015390)
#(#(source1) 4 "/home/lucier/Desktop/raw.scm" 3146462)
#(#(source1) 3 "/home/lucier/Desktop/raw.scm" 3277534)
#(#(source1) 4 "/home/lucier/Desktop/raw.scm" 3408606)
#(#(source1) 4 "/home/lucier/Desktop/raw.scm" 3539678)
#(#(source1) 5 "/home/lucier/Desktop/raw.scm" 3670750)
#(#(source1) 3 "/home/lucier/Desktop/raw.scm" 3801822)
#(#(source1) 4 "/home/lucier/Desktop/raw.scm" 3932894)
#(#(source1) 4 "/home/lucier/Desktop/raw.scm" 4063966)
#(#(source1) 5 "/home/lucier/Desktop/raw.scm" 4195038)
#(#(source1) 4 "/home/lucier/Desktop/raw.scm" 4326110)
#(#(source1) 5 "/home/lucier/Desktop/raw.scm" 4457182)
#(#(source1) 5 "/home/lucier/Desktop/raw.scm" 4588254)
#(#(source1) 6 "/home/lucier/Desktop/raw.scm" 4719326)
#(#(source1) 1 "/home/lucier/Desktop/raw.scm" 656095)
#(#(source1) 2 "/home/lucier/Desktop/raw.scm" 787167)
#(#(source1) 2 "/home/lucier/Desktop/raw.scm" 918239)
#(#(source1) 3 "/home/lucier/Desktop/raw.scm" 1049311)
#(#(source1) 2 "/home/lucier/Desktop/raw.scm" 1180383)
#(#(source1) 3 "/home/lucier/Desktop/raw.scm" 1311455)
#(#(source1) 3 "/home/lucier/Desktop/raw.scm" 1442527)
#(#(source1) 4 "/home/lucier/Desktop/raw.scm" 1573599)
#(#(source1) 2 "/home/lucier/Desktop/raw.scm" 1704671)
#(#(source1) 3 "/home/lucier/Desktop/raw.scm" 1835743)
#(#(source1) 3 "/home/lucier/Desktop/raw.scm" 1966815)
#(#(source1) 4 "/home/lucier/Desktop/raw.scm" 2097887)
#(#(source1) 3 "/home/lucier/Desktop/raw.scm" 2228959)
#(#(source1) 4 "/home/lucier/Desktop/raw.scm" 2360031)
#(#(source1) 4 "/home/lucier/Desktop/raw.scm" 2491103)
#(#(source1) 5 "/home/lucier/Desktop/raw.scm" 2622175)
#(#(source1) 2 "/home/lucier/Desktop/raw.scm" 2753247)
#(#(source1) 3 "/home/lucier/Desktop/raw.scm" 2884319)
#(#(source1) 3 "/home/lucier/Desktop/raw.scm" 3015391)
#(#(source1) 4 "/home/lucier/Desktop/raw.scm" 3146463)
#(#(source1) 3 "/home/lucier/Desktop/raw.scm" 3277535)
#(#(source1) 4 "/home/lucier/Desktop/raw.scm" 3408607)
#(#(source1) 4 "/home/lucier/Desktop/raw.scm" 3539679)
#(#(source1) 5 "/home/lucier/Desktop/raw.scm" 3670751)
#(#(source1) 3 "/home/lucier/Desktop/raw.scm" 3801823)
#(#(source1) 4 "/home/lucier/Desktop/raw.scm" 3932895)
#(#(source1) 4 "/home/lucier/Desktop/raw.scm" 4063967)
#(#(source1) 5 "/home/lucier/Desktop/raw.scm" 4195039)
#(#(source1) 4 "/home/lucier/Desktop/raw.scm" 4326111)
#(#(source1) 5 "/home/lucier/Desktop/raw.scm" 4457183)
#(#(source1) 5 "/home/lucier/Desktop/raw.scm" 4588255)
#(#(source1) 6 "/home/lucier/Desktop/raw.scm" 4719327)
#(#(source1) 2 "/home/lucier/Desktop/raw.scm" 656096)
#(#(source1) 3 "/home/lucier/Desktop/raw.scm" 787168)
#(#(source1) 3 "/home/lucier/Desktop/raw.scm" 918240)
#(#(source1) 4 "/home/lucier/Desktop/raw.scm" 1049312)
#(#(source1) 3 "/home/lucier/Desktop/raw.scm" 1180384)
#(#(source1) 4 "/home/lucier/Desktop/raw.scm" 1311456)
#(#(source1) 4 "/home/lucier/Desktop/raw.scm" 1442528)
#(#(source1) 5 "/home/lucier/Desktop/raw.scm" 1573600)
#(#(source1) 3 "/home/lucier/Desktop/raw.scm" 1704672)
#(#(source1) 4 "/home/lucier/Desktop/raw.scm" 1835744)
#(#(source1) 4 "/home/lucier/Desktop/raw.scm" 1966816)
#(#(source1) 5 "/home/lucier/Desktop/raw.scm" 2097888)
#(#(source1) 4 "/home/lucier/Desktop/raw.scm" 2228960)
#(#(source1) 5 "/home/lucier/Desktop/raw.scm" 2360032)
#(#(source1) 5 "/home/lucier/Desktop/raw.scm" 2491104)
#(#(source1) 6 "/home/lucier/Desktop/raw.scm" 2622176)
#(#(source1) 3 "/home/lucier/Desktop/raw.scm" 2753248)
#(#(source1) 4 "/home/lucier/Desktop/raw.scm" 2884320)
#(#(source1) 4 "/home/lucier/Desktop/raw.scm" 3015392)
#(#(source1) 5 "/home/lucier/Desktop/raw.scm" 3146464)
#(#(source1) 4 "/home/lucier/Desktop/raw.scm" 3277536)
#(#(source1) 5 "/home/lucier/Desktop/raw.scm" 3408608)
#(#(source1) 5 "/home/lucier/Desktop/raw.scm" 3539680)
#(#(source1) 6 "/home/lucier/Desktop/raw.scm" 3670752)
#(#(source1) 4 "/home/lucier/Desktop/raw.scm" 3801824)
#(#(source1) 5 "/home/lucier/Desktop/raw.scm" 3932896)
#(#(source1) 5 "/home/lucier/Desktop/raw.scm" 4063968)
#(#(source1) 6 "/home/lucier/Desktop/raw.scm" 4195040)
#(#(source1) 5 "/home/lucier/Desktop/raw.scm" 4326112)
#(#(source1) 6 "/home/lucier/Desktop/raw.scm" 4457184)
#(#(source1) 6 "/home/lucier/Desktop/raw.scm" 4588256)
#(#(source1) 7 "/home/lucier/Desktop/raw.scm" 4719328)
#(#(source1) 1 "/home/lucier/Desktop/raw.scm" 656097)
#(#(source1) 2 "/home/lucier/Desktop/raw.scm" 787169)
#(#(source1) 2 "/home/lucier/Desktop/raw.scm" 918241)
#(#(source1) 3 "/home/lucier/Desktop/raw.scm" 1049313)
#(#(source1) 2 "/home/lucier/Desktop/raw.scm" 1180385)
#(#(source1) 3 "/home/lucier/Desktop/raw.scm" 1311457)
#(#(source1) 3 "/home/lucier/Desktop/raw.scm" 1442529)
#(#(source1) 4 "/home/lucier/Desktop/raw.scm" 1573601)
#(#(source1) 2 "/home/lucier/Desktop/raw.scm" 1704673)
#(#(source1) 3 "/home/lucier/Desktop/raw.scm" 1835745)
#(#(source1) 3 "/home/lucier/Desktop/raw.scm" 1966817)
#(#(source1) 4 "/home/lucier/Desktop/raw.scm" 2097889)
#(#(source1) 3 "/home/lucier/Desktop/raw.scm" 2228961)
#(#(source1) 4 "/home/lucier/Desktop/raw.scm" 2360033)
#(#(source1) 4 "/home/lucier/Desktop/raw.scm" 2491105)
#(#(source1) 5 "/home/lucier/Desktop/raw.scm" 2622177)
#(#(source1) 2 "/home/lucier/Desktop/raw.scm" 2753249)
#(#(source1) 3 "/home/lucier/Desktop/raw.scm" 2884321)
#(#(source1) 3 "/home/lucier/Desktop/raw.scm" 3015393)
#(#(source1) 4 "/home/lucier/Desktop/raw.scm" 3146465)
#(#(source1) 3 "/home/lucier/Desktop/raw.scm" 3277537)
#(#(source1) 4 "/home/lucier/Desktop/raw.scm" 3408609)
#(#(source1) 4 "/home/lucier/Desktop/raw.scm" 3539681)
#(#(source1) 5 "/home/lucier/Desktop/raw.scm" 3670753)
#(#(source1) 3 "/home/lucier/Desktop/raw.scm" 3801825)
#(#(source1) 4 "/home/lucier/Desktop/raw.scm" 3932897)
#(#(source1) 4 "/home/lucier/Desktop/raw.scm" 4063969)
#(#(source1) 5 "/home/lucier/Desktop/raw.scm" 4195041)
#(#(source1) 4 "/home/lucier/Desktop/raw.scm" 4326113)
#(#(source1) 5 "/home/lucier/Desktop/raw.scm" 4457185)
#(#(source1) 5 "/home/lucier/Desktop/raw.scm" 4588257)
#(#(source1) 6 "/home/lucier/Desktop/raw.scm" 4719329)
#(#(source1) 2 "/home/lucier/Desktop/raw.scm" 656098)
#(#(source1) 3 "/home/lucier/Desktop/raw.scm" 787170)
#(#(source1) 3 "/home/lucier/Desktop/raw.scm" 918242)
#(#(source1) 4 "/home/lucier/Desktop/raw.scm" 1049314)
#(#(source1) 3 "/home/lucier/Desktop/raw.scm" 1180386)
#(#(source1) 4 "/home/lucier/Desktop/raw.scm" 1311458)
#(#(source1) 4 "/home/lucier/Desktop/raw.scm" 1442530)
#(#(source1) 5 "/home/lucier/Desktop/raw.scm" 1573602)
#(#(source1) 3 "/home/lucier/Desktop/raw.scm" 1704674)
#(#(source1) 4 "/home/lucier/Desktop/raw.scm" 1835746)
#(#(source1) 4 "/home/lucier/Desktop/raw.scm" 1966818)
#(#(source1) 5 "/home/lucier/Desktop/raw.scm" 2097890)
#(#(source1) 4 "/home/lucier/Desktop/raw.scm" 2228962)
#(#(source1) 5 "/home/lucier/Desktop/raw.scm" 2360034)
#(#(source1) 5 "/home/lucier/Desktop/raw.scm" 2491106)
#(#(source1) 6 "/home/lucier/Desktop/raw.scm" 2622178)
#(#(source1) 3 "/home/lucier/Desktop/raw.scm" 2753250)
#(#(source1) 4 "/home/lucier/Desktop/raw.scm" 2884322)
#(#(source1) 4 "/home/lucier/Desktop/raw.scm" 3015394)
#(#(source1) 5 "/home/lucier/Desktop/raw.scm" 3146466)
#(#(source1) 4 "/home/lucier/Desktop/raw.scm" 3277538)
#(#(source1) 5 "/home/lucier/Desktop/raw.scm" 3408610)
#(#(source1) 5 "/home/lucier/Desktop/raw.scm" 3539682)
#(#(source1) 6 "/home/lucier/Desktop/raw.scm" 3670754)
#(#(source1) 4 "/home/lucier/Desktop/raw.scm" 3801826)
#(#(source1) 5 "/home/lucier/Desktop/raw.scm" 3932898)
#(#(source1) 5 "/home/lucier/Desktop/raw.scm" 4063970)
#(#(source1) 6 "/home/lucier/Desktop/raw.scm" 4195042)
#(#(source1) 5 "/home/lucier/Desktop/raw.scm" 4326114)
#(#(source1) 6 "/home/lucier/Desktop/raw.scm" 4457186)
#(#(source1) 6 "/home/lucier/Desktop/raw.scm" 4588258)
#(#(source1) 7 "/home/lucier/Desktop/raw.scm" 4719330)
#(#(source1) 2 "/home/lucier/Desktop/raw.scm" 656099)
#(#(source1) 3 "/home/lucier/Desktop/raw.scm" 787171)
#(#(source1) 3 "/home/lucier/Desktop/raw.scm" 918243)
#(#(source1) 4 "/home/lucier/Desktop/raw.scm" 1049315)
#(#(source1) 3 "/home/lucier/Desktop/raw.scm" 1180387)
#(#(source1) 4 "/home/lucier/Desktop/raw.scm" 1311459)
#(#(source1) 4 "/home/lucier/Desktop/raw.scm" 1442531)
#(#(source1) 5 "/home/lucier/Desktop/raw.scm" 1573603)
#(#(source1) 3 "/home/lucier/Desktop/raw.scm" 1704675)
#(#(source1) 4 "/home/lucier/Desktop/raw.scm" 1835747)
#(#(source1) 4 "/home/lucier/Desktop/raw.scm" 1966819)
#(#(source1) 5 "/home/lucier/Desktop/raw.scm" 2097891)
#(#(source1) 4 "/home/lucier/Desktop/raw.scm" 2228963)
#(#(source1) 5 "/home/lucier/Desktop/raw.scm" 2360035)
#(#(source1) 5 "/home/lucier/Desktop/raw.scm" 2491107)
#(#(source1) 6 "/home/lucier/Desktop/raw.scm" 2622179)
#(#(source1) 3 "/home/lucier/Desktop/raw.scm" 2753251)
#(#(source1) 4 "/home/lucier/Desktop/raw.scm" 2884323)
#(#(source1) 4 "/home/lucier/Desktop/raw.scm" 3015395)
#(#(source1) 5 "/home/lucier/Desktop/raw.scm" 3146467)
#(#(source1) 4 "/home/lucier/Desktop/raw.scm" 3277539)
#(#(source1) 5 "/home/lucier/Desktop/raw.scm" 3408611)
#(#(source1) 5 "/home/lucier/Desktop/raw.scm" 3539683)
#(#(source1) 6 "/home/lucier/Desktop/raw.scm" 3670755)
#(#(source1) 4 "/home/lucier/Desktop/raw.scm" 3801827)
#(#(source1) 5 "/home/lucier/Desktop/raw.scm" 3932899)
#(#(source1) 5 "/home/lucier/Desktop/raw.scm" 4063971)
#(#(source1) 6 "/home/lucier/Desktop/raw.scm" 4195043)
#(#(source1) 5 "/home/lucier/Desktop/raw.scm" 4326115)
#(#(source1) 6 "/home/lucier/Desktop/raw.scm" 4457187)
#(#(source1) 6 "/home/lucier/Desktop/raw.scm" 4588259)
#(#(source1) 7 "/home/lucier/Desktop/raw.scm" 4719331)
#(#(source1) 3 "/home/lucier/Desktop/raw.scm" 656100)
#(#(source1) 4 "/home/lucier/Desktop/raw.scm" 787172)
#(#(source1) 4 "/home/lucier/Desktop/raw.scm" 918244)
#(#(source1) 5 "/home/lucier/Desktop/raw.scm" 1049316)
#(#(source1) 4 "/home/lucier/Desktop/raw.scm" 1180388)
#(#(source1) 5 "/home/lucier/Desktop/raw.scm" 1311460)
#(#(source1) 5 "/home/lucier/Desktop/raw.scm" 1442532)
#(#(source1) 6 "/home/lucier/Desktop/raw.scm" 1573604)
#(#(source1) 4 "/home/lucier/Desktop/raw.scm" 1704676)
#(#(source1) 5 "/home/lucier/Desktop/raw.scm" 1835748)
#(#(source1) 5 "/home/lucier/Desktop/raw.scm" 1966820)
#(#(source1) 6 "/home/lucier/Desktop/raw.scm" 2097892)
#(#(source1) 5 "/home/lucier/Desktop/raw.scm" 2228964)
#(#(source1) 6 "/home/lucier/Desktop/raw.scm" 2360036)
#(#(source1) 6 "/home/lucier/Desktop/raw.scm" 2491108)
#(#(source1) 7 "/home/lucier/Desktop/raw.scm" 2622180)
#(#(source1) 4 "/home/lucier/Desktop/raw.scm" 2753252)
#(#(source1) 5 "/home/lucier/Desktop/raw.scm" 2884324)
#(#(source1) 5 "/home/lucier/Desktop/raw.scm" 3015396)
#(#(source1) 6 "/home/lucier/Desktop/raw.scm" 3146468)
#(#(source1) 5 "/home/lucier/Desktop/raw.scm" 3277540)
#(#(source1) 6 "/home/lucier/Desktop/raw.scm" 3408612)
#(#(source1) 6 "/home/lucier/Desktop/raw.scm" 3539684)
#(#(source1) 7 "/home/lucier/Desktop/raw.scm" 3670756)
#(#(source1) 5 "/home/lucier/Desktop/raw.scm" 3801828)
#(#(source1) 6 "/home/lucier/Desktop/raw.scm" 3932900)
#(#(source1) 6 "/home/lucier/Desktop/raw.scm" 4063972)
#(#(source1) 7 "/home/lucier/Desktop/raw.scm" 4195044)
#(#(source1) 6 "/home/lucier/Desktop/raw.scm" 4326116)
#(#(source1) 7 "/home/lucier/Desktop/raw.scm" 4457188)
#(#(source1) 7 "/home/lucier/Desktop/raw.scm" 4588260)
#(#(source1) 8 "/home/lucier/Desktop/raw.scm" 4719332))
"/home/lucier/Desktop/raw.scm"
1114844)
((top) #(ribcage () () ()) #(ribcage #(bv) #((top)) #("i")) #(top-ribcage *top #t))))
1\1>

No clue what to do.

Brad

@gambiteer
Copy link
Collaborator Author

I think Phil Bewig's Programming Praxis is a good thing, and it uses Scheme; it would be unfortunate if Gambit couldn't load its so-called Standard Prelude without error.

@eval-apply
Copy link
Contributor

Looks like the (initial) error is not syntax-case, if you change the vector literal in bitvector-count the error is resolved. Additionally there is a function called "define-generator" that is undefined, aside from that seems to load correctly.

@gambiteer
Copy link
Collaborator Author

Thank you for your comment pointing out that the original code is in error, for some reason I find the error messages from psyntax.scm difficult to work with.

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
Assignees
No one assigned
Labels
None yet
Projects
None yet
Milestone
No milestone
Development

No branches or pull requests
2 participants
@eval-apply @gambiteer