| … | |
… | |
| 720 | |
720 | |
| 721 | (define (check-arg pred val caller) |
721 | (define (check-arg pred val caller) |
| 722 | (let lp ((val val)) |
722 | (let lp ((val val)) |
| 723 | (if (pred val) val (lp (error "Bad argument" val pred caller))))) |
723 | (if (pred val) val (lp (error "Bad argument" val pred caller))))) |
| 724 | |
724 | |
| 725 | (load "srfi-1-reference.scm") |
725 | ;(load "srfi-1-reference.scm") |
| 726 | |
726 | |
| 727 | ;; end of init |
727 | ;; end of init |
| 728 | |
728 | |
| 729 | (define xx (call-with-current-continuation (lambda (x) x))) |
729 | ;(define xx (call-with-current-continuation (lambda (x) x))) |
| 730 | |
730 | ; |
| 731 | (display xx) |
731 | ; (display xx) |
| 732 | (display "A\n")(xx xx) |
732 | ; (display "A\n")(xx xx) |
| 733 | (display "b\n")(xx xx) |
733 | ; (display "b\n")(xx xx) |
| 734 | (display "c\n")(xx xx) |
734 | ; (display "c\n")(xx xx) |
| 735 | (display "d\n")(xx xx) |
735 | ; (display "d\n")(xx xx) |
| 736 | |
736 | |
|
|
737 | ;(do ((j 0 (+ j 1))) ((> j 100000)) ()) |
|
|
738 | |
