Eliminate null-binding-item.

diff --git a/src/runtime/runtime.pkg b/src/runtime/runtime.pkg
index 50b0f1a86f8e19efe54e87374357a7f39e26fb73..8327cbe19bbe5d55ba9e5c688f7a7eaa7a612063 100644 (file)
--- 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 8a1939d2024a3b664c5d0b394626cd37853aabbb..b23c904031e3be3b20ebdb8ed0a221684f84fb19 100644 (file)
--- 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