Import Upstream version 2c0upstream/2c0

1 files changed, 20 insertions, 1 deletions

diff --git a/mitscheme.init b/mitscheme.init
index a6f1c0e..9486c18 100644
--- a/mitscheme.init
+++ b/mitscheme.init
@@ -1,5 +1,5 @@
 ;;;"mitscheme.init" Initialization for SLIB for MITScheme        -*-scheme-*-
-;;; 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
@@ -64,6 +64,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)))
+
 (define *features*
       '(
 	source				;can load scheme source files
@@ -98,8 +106,13 @@
 	compiler
 	getenv
 	Xwindows
+	current-time
 	))
 
+(define current-time current-file-time)
+(define difftime -)
+(define offset-time +)
+
 ;;; (OUTPUT-PORT-WIDTH <port>)
 (define output-port-width output-port/x-size)
 
@@ -213,6 +226,12 @@
 
 (define record-modifier record-updater)	;some versions need this?
 
+(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)
   (apply error-procedure (append args (list (the-environment)))))