… | |
… | |
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 | |