# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 936615748 0
# Node ID 301ce7f0b3989b888ba322e1107e6ed9beac62a8
# Parent  e52ba2d9f6d78d285bbaaeee789f88c3358c8a1e
(Vbyte_boolean_vars): New variable.
(defvar_bool, syms_of_lread): Use it.

diff -r e52ba2d9f6d7 -r 301ce7f0b398 src/lread.c
--- a/src/lread.c	Mon Sep 06 09:05:24 1999 +0000
+++ b/src/lread.c	Mon Sep 06 11:02:28 1999 +0000
@@ -127,6 +127,9 @@
    compiled) instead of readevalloop.  */
 Lisp_Object Vload_source_file_function;
 
+/* List of all DEFVAR_BOOL variables.  Used by the byte optimizer.  */
+Lisp_Object Vbyte_boolean_vars;
+
 /* List of descriptors now open for Fload.  */
 static Lisp_Object load_descriptor_list;
 
@@ -3038,6 +3041,7 @@
   XMISCTYPE (val) = Lisp_Misc_Boolfwd;
   XBOOLFWD (val)->boolvar = address;
   XSYMBOL (sym)->value = val;
+  Vbyte_boolean_vars = Fcons (sym, Vbyte_boolean_vars);
 }
 
 /* Similar but define a variable whose value is the Lisp Object stored
@@ -3421,6 +3425,10 @@
      "List of files that were preloaded (when dumping Emacs).");
   Vpreloaded_file_list = Qnil;
 
+  DEFVAR_LISP ("byte-boolean-vars", &Vbyte_boolean_vars,
+     "List of all DEFVAR_BOOL variables, used by the byte code optimizer.");
+  Vbyte_boolean_vars = Qnil;
+
   /* Vsource_directory was initialized in init_lread.  */
 
   load_descriptor_list = Qnil;