From fa3f23105ddcf07c5900de47f19af43d1db1b597 Mon Sep 17 00:00:00 2001
From: Bryan Newbold <bnewbold@robocracy.org>
Date: Mon, 20 Feb 2017 00:05:27 -0800
Subject: Import Upstream version 2c3

---
 vscm.init | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

(limited to 'vscm.init')

diff --git a/vscm.init b/vscm.init
index 6868213..6164298 100644
--- a/vscm.init
+++ b/vscm.init
@@ -131,8 +131,8 @@
 ;	transcript			;TRANSCRIPT-ON and TRANSCRIPT-OFF
 ;	char-ready?
 ;	macro				;has R4RS high level macros
-;	defmacro			;has Common Lisp DEFMACRO
-	eval				;SLIB:EVAL is single argument eval
+	defmacro			;has Common Lisp DEFMACRO
+;	eval				;proposed 2-argument eval
 ;	record				;has user defined data structures
 	values				;proposed multiple values
 ;	dynamic-wind			;proposed dynamic-wind
@@ -168,7 +168,7 @@
 (define (output-port-width . arg) 79)
 
 ;;; (CURRENT-ERROR-PORT)
-(define current-error-port
+(define (current-error-port)
   (standard-port 2))
 
 ;;; (TMPNAM) makes a temporary file name.
@@ -269,8 +269,7 @@
 ;;; Return argument
 (define (identity x) x)
 
-;;; If your implementation provides eval SLIB:EVAL is single argument
-;;; eval using the top-level (user) environment.
+;;; SLIB:EVAL is single argument eval using the top-level (user) environment.
 (define slib:eval eval)
 
 ;;; If your implementation provides R4RS macros:
@@ -333,7 +332,8 @@
       (for-each (lambda (x) (display x port)) args))))
 
 ;;; define an error procedure for the library
-(define slib:error error)
+(define (slib:error . argl)
+  (error argl))
 
 ;;; define these as appropriate for your system.
 (define slib:tab #\Tab)
-- 
cgit v1.2.3