Import Upstream version 3a1upstream/3a1

1 files changed, 6 insertions, 6 deletions

diff --git a/eval.scm b/eval.scm
index a5e7e19..ae716f6 100644
--- a/eval.scm
+++ b/eval.scm
@@ -8,7 +8,7 @@
 ;1.  Any copy made of this software must include this copyright notice
 ;in full.
 ;
-;2.  I have made no warrantee or representation that the operation of
+;2.  I have made no warranty or representation that the operation of
 ;this software will be error-free, and I am under no obligation to
 ;provide any services, by way of maintenance, update, or otherwise.
 ;
@@ -45,15 +45,15 @@
        (apply (lambda (environment-values identifiers procedure)
 		(eval-1 `((lambda args args) ,@identifiers)))
 	      environment)))))
-
+;@
 (define interaction-environment
   (let ((env (eval:make-environment '())))
     (lambda () env)))
 
-;;; null-environment is set by first call to scheme-report-environment at
+;;;@ null-environment is set by first call to scheme-report-environment at
 ;;; the end of this file.
 (define null-environment #f)
-
+;@
 (define scheme-report-environment
   (let* ((r4rs-procedures
 	  (append
@@ -111,7 +111,7 @@
 			      null-environment scheme-report-environment values)
 	   r4rs-procedures))
 	 (r4rs-environment (eval:make-environment r4rs-procedures))
-	 (r5rs-environment (eval:make-environment r4rs-procedures)))
+	 (r5rs-environment (eval:make-environment r5rs-procedures)))
     (let ((car car))
       (lambda (version)
 	(cond ((car r5rs-environment))
@@ -125,7 +125,7 @@
 	  ((4) r4rs-environment)
 	  ((5) r5rs-environment)
 	  (else (slib:error 'eval 'version version 'not 'available)))))))
-
+;@
 (define eval
   (let ((eval-1 slib:eval)
 	(apply apply)