From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 30 Jan 2018 04:22:56 +0000 (-0800)
Subject: Eliminate unnecessary condition.
X-Git-Tag: mit-scheme-pucked-x11-0.3.1~7^2~289
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=0111100b1de4269a5b8ccd8ab25b5b0a890ce8dd;p=mit-scheme.git

Eliminate unnecessary condition.
---

diff --git a/src/runtime/mit-syntax.scm b/src/runtime/mit-syntax.scm
index 68c74d73a..c104c3516 100644
--- 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