Eliminate unnecessary condition.

diff --git a/src/runtime/mit-syntax.scm b/src/runtime/mit-syntax.scm
index 68c74d73a354016ed88b2385b066dc6450e7f33e..c104c351662d98129b8f776d3d92043140753d3d 100644 (file)
--- a/src/runtime/mit-syntax.scm
+++ b/src/runtime/mit-syntax.scm
@@ -149,8 +149,7 @@ USA.
   (classifier->keyword
    (lambda (form environment)
      (let ((name (cadr form)))
-       (if (not (syntactic-environment/top-level? environment))
-          (reserve-identifier environment name))
+       (reserve-identifier environment name)
        (variable-binder make-binding-item
                        environment
                        name