… | |
… | |
733 | |
733 | |
734 | (define (check-arg pred val caller) |
734 | (define (check-arg pred val caller) |
735 | (let lp ((val val)) |
735 | (let lp ((val val)) |
736 | (if (pred val) val (lp (error "Bad argument" val pred caller))))) |
736 | (if (pred val) val (lp (error "Bad argument" val pred caller))))) |
737 | |
737 | |
|
|
738 | ;(load "srfi-55.scm") |
|
|
739 | |
|
|
740 | ;(register-extension '(srfi 1) (lamba () (load "srfi-1.scm"))) |
|
|
741 | ;(register-extension '(srfi 23) (lamba () ())) ; error builtin |
|
|
742 | ;(register-extension '(srfi 55) (lamba () ())) ; always available |
|
|
743 | |
738 | (load "srfi-1-reference.scm") |
744 | (load "srfi-1.scm") |
739 | |
745 | |
740 | ;; end of init |
746 | ;; end of init |
741 | |
747 | |
742 | (load "test.scm") |
748 | (load "test.scm") |
743 | |
749 | |