From 4684239efa63dc1b2c1cbe37ef7d3062029f5532 Mon Sep 17 00:00:00 2001
From: Bryan Newbold <bnewbold@robocracy.org>
Date: Mon, 20 Feb 2017 00:05:40 -0800
Subject: Import Upstream version 3b1

---
 sisc.init | 39 ++++++++++++++++++++++++---------------
 1 file changed, 24 insertions(+), 15 deletions(-)

(limited to 'sisc.init')

diff --git a/sisc.init b/sisc.init
index a042bb7..630136b 100644
--- a/sisc.init
+++ b/sisc.init
@@ -17,18 +17,22 @@
 (define (program-vicinity)
   (current-directory))
 
-(define (library-vicinity)
-  (string-append
-   (or (getenv "sisc.slib")
-       (getenv "sisc.lib")
-       (error "You must define the sisc.slib or sisc.lib property"))
-   "/"))
-
-(define (implementation-vicinity)
-  (string-append
-   (or (getenv "sisc.home")
-       (error "You must define the sisc.home property"))
-   "/"))
+(define library-vicinity
+  (let ((lib-path
+	 (string-append
+	  (or (getenv "sisc.slib")
+	      (getenv "sisc.lib")
+	      (error "You must define the sisc.slib or sisc.lib property"))
+	  "/")))
+    (lambda () lib-path)))
+
+(define implementation-vicinity
+  (let ((impl-path
+	 (string-append
+	  (or (getenv "sisc.home")
+	      (error "You must define the sisc.home property"))
+	  "/")))
+    (lambda () impl-path)))
 
 (define (user-vicinity) "")
 
@@ -102,6 +106,7 @@
 					;(SLIB:LOAD-COMPILED "filename")
     vicinity
     srfi-59
+    srfi-96
 
 	       ;;; Scheme report features
     ;; R5RS-compliant implementations should provide all 9 features.
@@ -141,7 +146,7 @@
 
 		;;; Other common features
 
-    srfi			 ;srfi-0, COND-EXPAND finds all srfi-*
+    srfi-0			 ;srfi-0, COND-EXPAND finds all srfi-*
 ;;;	sicp				;runs code from Structure and
 					;Interpretation of Computer
 					;Programs by Abelson and Sussman.
@@ -335,9 +340,13 @@
 ;;@ At this point SLIB:LOAD must be able to load SLIB files.
 (define slib:load slib:load-source)
 
-;; If your implementation provides R4RS macros:
+;;; If your implementation provides R4RS macros:
 (define macro:eval slib:eval)
-(define macro:load load)
+(define macro:load slib:load-source)
+
+;;; If your implementation provides syntax-case macros:
+;;(define syncase:eval slib:eval)
+;;(define syncase:load slib:load-source)
 
 ;@
 (define gentemp gensym)
-- 
cgit v1.2.3