From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 20 Jan 2018 04:01:25 +0000 (-0800)
Subject: Eliminate null-binding-item.
X-Git-Tag: mit-scheme-pucked-x11-0.3.1~7^2~335
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=3dcd773972e34b8f29c5d80502ade1e25f3454be;p=mit-scheme.git

Eliminate null-binding-item.
---

diff --git a/src/runtime/runtime.pkg b/src/runtime/runtime.pkg
index 50b0f1a86..8327cbe19 100644
--- a/src/runtime/runtime.pkg
+++ b/src/runtime/runtime.pkg
@@ -4486,7 +4486,6 @@ USA.
 	  <expander-item>
 	  <expression-item>
 	  <keyword-value-item>
-	  <null-binding-item>
 	  <reserved-name-item>
 	  <variable-item>
 	  binding-item/name
@@ -4516,10 +4515,8 @@ USA.
 	  make-expander-item
 	  make-expression-item
 	  make-keyword-value-item
-	  make-null-binding-item
 	  make-reserved-name-item
 	  make-variable-item
-	  null-binding-item?
 	  reserved-name-item?
 	  variable-item/name
 	  variable-item?))
diff --git a/src/runtime/syntax-items.scm b/src/runtime/syntax-items.scm
index 8a1939d20..b23c90403 100644
--- a/src/runtime/syntax-items.scm
+++ b/src/runtime/syntax-items.scm
@@ -110,16 +110,11 @@ USA.
 (define (declaration-item/text item)
   ((declaration-item/get-text item)))
 
-;;; Binding items represent definitions, whether top-level or
-;;; internal, keyword or variable.  Null binding items are for
-;;; definitions that don't emit code.
+;;; Binding items represent definitions, whether top-level or internal, keyword
+;;; or variable.
 
 (define-record-type <binding-item>
     (make-binding-item name value)
     binding-item?
   (name binding-item/name)
-  (value binding-item/value))
-
-(define-record-type <null-binding-item>
-    (make-null-binding-item)
-    null-binding-item?)
\ No newline at end of file
+  (value binding-item/value))
\ No newline at end of file