Import Upstream version 2c3upstream/2c3

1 files changed, 2 insertions, 5 deletions

diff --git a/scsh.init b/scsh.init
index fcabadc..ac6d1b9 100644
--- a/scsh.init
+++ b/scsh.init
@@ -72,7 +72,7 @@
 	char-ready?
 	macro				;has R4RS high level macros
 ;	defmacro			;has Common Lisp DEFMACRO
-	eval				;SLIB:EVAL is single argument eval
+	eval				;proposed 2-arugment eval
 ;	record				;has user defined data structures
 	values				;proposed multiple values
 	dynamic-wind			;proposed dynamic-wind
@@ -134,10 +134,7 @@
 ;;; Return argument
 (define (identity x) x)
 
-;;; If your implementation provides eval SLIB:EVAL is single argument
-;;; eval using the top-level (user) environment.
-;(define slib:eval eval)
-
+;;; SLIB:EVAL is single argument eval using the top-level (user) environment.
 
 ; [s48 has two argument eval]
 (define (slib:eval form)