# HG changeset patch
# User jwe
# Date 811144997 0
# Node ID 034a57daf076d9619b882d07de502a052bed2794
# Parent  ac4b467e9352afc3d957fd6ab62cf3464eb61d2f
[project @ 1995-09-15 06:03:10 by jwe]

diff -r ac4b467e9352 -r 034a57daf076 src/variables.cc
--- a/src/variables.cc	Fri Sep 15 05:41:00 1995 +0000
+++ b/src/variables.cc	Fri Sep 15 06:03:17 1995 +0000
@@ -1488,6 +1488,15 @@
 }
 
 void
+bind_builtin_variable (const char *varname, const tree_constant& val,
+		       int protect, int eternal, sv_Function sv_fcn,
+		       const char *help)
+{
+  tree_constant *tc = new tree_constant (val);
+  bind_builtin_variable (varname, tc, protect, eternal, sv_fcn, help);
+}
+
+void
 install_builtin_variables (void)
 {
   // XXX FIXME XX -- these should probably be moved to where they
diff -r ac4b467e9352 -r 034a57daf076 src/variables.h
--- a/src/variables.h	Fri Sep 15 05:41:00 1995 +0000
+++ b/src/variables.h	Fri Sep 15 06:03:17 1995 +0000
@@ -116,6 +116,11 @@
 				   sv_Function f = (sv_Function) 0,
 				   const char *help = 0);
 
+extern void bind_builtin_variable (const char *, const tree_constant&,
+				   int protect = 0, int eternal = 0,
+				   sv_Function f = (sv_Function) 0,
+				   const char *help = 0);
+
 extern void install_builtin_variables (void);
 
 extern char *maybe_add_default_load_path (const char *p);