From 0111100b1de4269a5b8ccd8ab25b5b0a890ce8dd Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 29 Jan 2018 20:22:56 -0800
Subject: [PATCH] Eliminate unnecessary condition.

---
 src/runtime/mit-syntax.scm | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

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
-- 
2.25.1