diff options
Diffstat (limited to 'synclo.scm')
| -rw-r--r-- | synclo.scm | 12 |
1 files changed, 6 insertions, 6 deletions
@@ -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) |