Allow syntax definitions to be exported from libraries.

(cherry picked from commit 33f0a90909898f46af579ffb67c06d4cbfd1e81f)

diff --git a/src/runtime/syntax-environment.scm b/src/runtime/syntax-environment.scm
index 1fe149179387f566187fe15c6bf7b09e0c92a7d5..e4968ae3912ac10db89c436dffebde777963f72a 100644 (file)
--- a/src/runtime/syntax-environment.scm
+++ b/src/runtime/syntax-environment.scm
@@ -71,7 +71,7 @@ USA.
   ((senv-get-runtime senv)))
 
 (define (senv-top-level? senv)
-  (eq? 'top-level ((senv-get-type senv))))
+  (memq ((senv-get-type senv)) '(top-level sealed)))
 
 (define (lookup-identifier identifier senv)
   (guarantee identifier? identifier 'lookup-identifier)