slib/slib-3b6/gambit.init

58 ;;; This assumes that the slib files are in a folder
59 ;;; called slib in the same directory as the MacGambit Interpreter.
68 	    ((unix) "/usr/local/lib/slib/")
69 	    ((macos) (string-append (implementation-vicinity) "slib:"))
101 (define *load-pathname* #f)
113 	    (slib:warn "require.scm" 'unknown 'software-type (software-type))
124   (if *load-pathname*
125       (pathname->vicinity *load-pathname*)
126       (slib:error 'program-vicinity " called; use slib:load to load")))
148 (define with-load-pathname
151 	   (let ((old *load-pathname*))
152 	     (set! *load-pathname* new)
163 (define slib:features
165 	source				;can load scheme source files
167 	compiled			;can load compiled files
316 	(else (slib:error 'open-file 'mode? modes))))))
352 (define slib:eval eval)
381        (string-append "slib:G" (number->string *gensym-counter*))))))
383 (define base:eval slib:eval)
386 (define (defmacro:load <pathname>)
387   (slib:eval-load <pathname> defmacro:eval))
391 (define slib:warn
399 (define slib:error
406 (define slib:tab (integer->char 9))
407 (define slib:form-feed (integer->char 12))
422 (define slib:exit (lambda args (exit)))
431 ;;; (SLIB:LOAD-SOURCE "foo") should load "foo.scm" or with whatever
433 (define slib:load-source load)
435 ;;; (SLIB:LOAD-COMPILED "foo") should load the file that was produced
438 (define slib:load-compiled load)
440 ;;; At this point SLIB:LOAD must be able to load SLIB files.
441 (define slib:load slib:load-source)
444 ;;(define macro:eval slib:eval)
445 ;;(define macro:load slib:load-source)
448 ;;(define syncase:eval slib:eval)
449 ;;(define syncase:load slib:load-source)
451 (slib:eval '(define-macro (defmacro name parms . body)
456 (slib:load (in-vicinity (library-vicinity) "require"))