summaryrefslogtreecommitdiffstats
path: root/scheme2c.init
diff options
context:
space:
mode:
Diffstat (limited to 'scheme2c.init')
-rw-r--r--scheme2c.init16
1 files changed, 15 insertions, 1 deletions
diff --git a/scheme2c.init b/scheme2c.init
index cace8c0..7caf944 100644
--- a/scheme2c.init
+++ b/scheme2c.init
@@ -1,5 +1,5 @@
;"scheme2c.init" Initialisation for SLIB for Scheme->C on Sun -*-scheme-*-
-;Copyright 1991, 1992, 1993 Aubrey Jaffer
+;Copyright 1991, 1992, 1993, 1994, 1997 Aubrey Jaffer
;Copyright 1991 David Love
;
;Permission to copy this software, to redistribute it, and to use it
@@ -59,6 +59,14 @@
(else ""))))
(lambda () library-path)))
+;;; (home-vicinity) should return the vicinity of the user's HOME
+;;; directory, the directory which typically contains files which
+;;; customize a computer environment for a user.
+
+(define home-vicinity
+ (let ((home-path (getenv "HOME")))
+ (lambda () home-path)))
+
;;; *FEATURES* should be set to a list of symbols describing features
;;; of this implementation. See Template.scm for the list of feature
;;; names.
@@ -211,6 +219,12 @@
(evl o))
(set! *load-pathname* old-load-pathname)))))
+(define slib:warn
+ (lambda args
+ (let ((port (current-error-port)))
+ (display "Warn: " port)
+ (for-each (lambda (x) (display x port)) args))))
+
;; define an error procedure for the library
(define (slib:error . args)
(error 'slib-error: "~a"