From 3dcd773972e34b8f29c5d80502ade1e25f3454be Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 19 Jan 2018 20:01:25 -0800
Subject: [PATCH] Eliminate null-binding-item.

---
 src/runtime/runtime.pkg      |  3 ---
 src/runtime/syntax-items.scm | 11 +++--------
 2 files changed, 3 insertions(+), 11 deletions(-)

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