diff options
Diffstat (limited to 't3.init')
| -rw-r--r-- | t3.init | 14 |
1 files changed, 13 insertions, 1 deletions
@@ -1,7 +1,7 @@ ;"t3.init" Initialization file for SLIB for T3.1. -*-scheme-*- ;Copyright (C) 1991, 1992 David Carlton & Stephen Bevan ;Copyright 1993 F. Javier Thayer. -;Copyright (C) 1991, 1992, 1993 Aubrey Jaffer. +;Copyright (C) 1991, 1992, 1993, 1994, 1997 Aubrey Jaffer. ; ;Permission to copy this software, to redistribute it, and to use it ;for any purpose is granted, subject to the following restrictions and @@ -52,6 +52,12 @@ (set (library-vicinity) "/usr/local/lib/slib/") ;;Obviously put your value here. +;;; (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) #f) + ;;; *FEATURES* should be set to a list of symbols describing features ;;; of this implementation. See Template.scm for the list of feature ;;; names. @@ -244,6 +250,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 error) |