… | |
… | |
714 | (not (cond-eval (cadr condition))))) |
714 | (not (cond-eval (cadr condition))))) |
715 | (else (error "cond-expand : unknown operator" (car condition))))))) |
715 | (else (error "cond-expand : unknown operator" (car condition))))))) |
716 | |
716 | |
717 | (gc-verbose #f) |
717 | (gc-verbose #f) |
718 | |
718 | |
719 | (load "cc.scm") |
719 | ;; srfi-1 |
|
|
720 | |
|
|
721 | (define (check-arg pred val caller) |
|
|
722 | (let lp ((val val)) |
|
|
723 | (if (pred val) val (lp (error "Bad argument" val pred caller))))) |
|
|
724 | |
|
|
725 | (load "srfi-1-reference.scm") |
|
|
726 | |
|
|
727 | ;; end of init |
|
|
728 | |
|
|
729 | (define xx (call-with-current-continuation (lambda (x) x))) |
|
|
730 | |
|
|
731 | (display xx) |
|
|
732 | (display "A\n")(xx xx) |
|
|
733 | (display "b\n")(xx xx) |
|
|
734 | (display "c\n")(xx xx) |
|
|
735 | (display "d\n")(xx xx) |
|
|
736 | |