ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/microscheme/init.scm
(Generate patch)

Comparing microscheme/init.scm (file contents):
Revision 1.9 by root, Sun Nov 29 05:04:29 2015 UTC vs.
Revision 1.10 by root, Sun Nov 29 13:47:15 2015 UTC

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

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines