Import Upstream version 3a1upstream/3a1

1 files changed, 6 insertions, 6 deletions

diff --git a/synclo.scm b/synclo.scm
index 5883b93..5c7bb9f 100644
--- a/synclo.scm
+++ b/synclo.scm
@@ -20,7 +20,7 @@
 ;;; software shall duly acknowledge such use, in accordance with the
 ;;; usual standards of acknowledging credit in academic research.
 ;;;
-;;; 4. MIT has made no warrantee or representation that the operation
+;;; 4. MIT has made no warranty or representation that the operation
 ;;; of this software will be error-free, and MIT is under no
 ;;; obligation to provide any services, by way of maintenance, update,
 ;;; or otherwise.
@@ -194,7 +194,7 @@
 
 (define syntactic-closure-type
   (make-record-type "syntactic-closure" '(ENVIRONMENT FREE-NAMES FORM)))
-
+;@
 (define make-syntactic-closure
   (record-constructor syntactic-closure-type '(ENVIRONMENT FREE-NAMES FORM)))
 
@@ -230,7 +230,7 @@
 	     result)))
 	(else
 	 object)))
-
+;@
 (define (identifier? object)
   (or (symbol? object)
       (synthetic-identifier? object)))
@@ -246,7 +246,7 @@
 	 (identifier->symbol (syntactic-closure/form identifier)))
 	(else
 	 (impl-error "not an identifier" identifier))))
-
+;@
 (define (identifier=? environment-1 identifier-1 environment-2 identifier-2)
   (let ((item-1 (syntactic-environment/lookup environment-1 identifier-1))
 	(item-2 (syntactic-environment/lookup environment-2 identifier-2)))
@@ -541,7 +541,7 @@
   ((definition-item/binding-theory item)
    environment
    (definition-item/name item)
-   (promise:force (definition-item/value item))))
+   (force (definition-item/value item))))
 
 (define (syntactic-binding-theory environment name item)
   (if (or (keyword-item? item)
@@ -684,7 +684,7 @@
     (for-each (lambda (name)
 		(syntactic-environment/define! environment name item))
 	      names)))
-
+;@
 (define (capture-syntactic-environment expander)
   (classifier->form
    (lambda (form environment definition-environment)