guile/guile-core/libguile ChangeLog hooks.c scr...

[Dirk Herrmann]

CVSROOT:        /cvs
Module name:    guile
Changes by:     Dirk Herrmann <address@hidden>  00/12/12 06:07:06

Modified files:
        guile-core/libguile: ChangeLog hooks.c script.c snarf.h 

Log message:
        * Make the creation of bindings more straightforward.

CVSWeb URLs:
http://subversions.gnu.org/cgi-bin/cvsweb/guile/guile-core/libguile/ChangeLog.diff?r1=1.1204&r2=1.1205
http://subversions.gnu.org/cgi-bin/cvsweb/guile/guile-core/libguile/hooks.c.diff?r1=1.8&r2=1.9
http://subversions.gnu.org/cgi-bin/cvsweb/guile/guile-core/libguile/script.c.diff?r1=1.34&r2=1.35
http://subversions.gnu.org/cgi-bin/cvsweb/guile/guile-core/libguile/snarf.h.diff?r1=1.41&r2=1.42

Patches:
Index: guile/guile-core/libguile/ChangeLog
diff -u guile/guile-core/libguile/ChangeLog:1.1204 
guile/guile-core/libguile/ChangeLog:1.1205
--- guile/guile-core/libguile/ChangeLog:1.1204  Tue Dec 12 05:57:26 2000
+++ guile/guile-core/libguile/ChangeLog Tue Dec 12 06:07:06 2000
@@ -1,5 +1,13 @@
 2000-12-12  Dirk Herrmann  <address@hidden>
 
+       * hooks.c (scm_create_hook), script.c
+       (scm_compile_shell_switches), snarf.h (SCM_VCELL,
+       SCM_GLOBAL_VCELL, SCM_VCELL_INIT, SCM_GLOBAL_VCELL_INIT):  Create
+       a binding in one go (instead of first creating a vcell and then
+       setting its cdr).
+
+2000-12-12  Dirk Herrmann  <address@hidden>
+
        * hash.[ch] (scm_string_hash), symbols.[ch] (scm_string_hash):
        Moved function scm_string_hash to hash.c.
 
Index: guile/guile-core/libguile/hooks.c
diff -u guile/guile-core/libguile/hooks.c:1.8 
guile/guile-core/libguile/hooks.c:1.9
--- guile/guile-core/libguile/hooks.c:1.8       Fri Dec  8 09:32:56 2000
+++ guile/guile-core/libguile/hooks.c   Tue Dec 12 06:07:06 2000
@@ -200,9 +200,8 @@
 SCM
 scm_create_hook (const char* name, int n_args)
 {
-  SCM vcell = scm_sysintern0 (name);
   SCM hook = make_hook (SCM_MAKINUM (n_args), "scm_create_hook");
-  SCM_SETCDR (vcell, hook);
+  scm_sysintern (name, hook);
   scm_set_object_property_x (hook, symbol_name, scm_makfrom0str (name));
   scm_protect_object (hook);
   return hook;
Index: guile/guile-core/libguile/script.c
diff -u guile/guile-core/libguile/script.c:1.34 
guile/guile-core/libguile/script.c:1.35
--- guile/guile-core/libguile/script.c:1.34     Fri Nov 17 08:25:04 2000
+++ guile/guile-core/libguile/script.c  Tue Dec 12 06:07:06 2000
@@ -578,10 +578,7 @@
   scm_set_program_arguments (argc ? argc - i : 0, argv + i, argv0);
   
   /* If the --emacs switch was set, now is when we process it.  */
-  {
-    SCM vcell = scm_sysintern0_no_module_lookup ("use-emacs-interface");
-    SCM_SETCDR (vcell, SCM_BOOL(use_emacs_interface));
-  }
+  scm_sysintern ("use-emacs-interface", SCM_BOOL (use_emacs_interface));
 
   /* Handle the `-e' switch, if it was specified.  */
   if (!SCM_NULLP (entry_point))
Index: guile/guile-core/libguile/snarf.h
diff -u guile/guile-core/libguile/snarf.h:1.41 
guile/guile-core/libguile/snarf.h:1.42
--- guile/guile-core/libguile/snarf.h:1.41      Fri Dec  8 09:08:34 2000
+++ guile/guile-core/libguile/snarf.h   Tue Dec 12 06:07:06 2000
@@ -169,19 +169,19 @@
 
 #define SCM_VCELL(c_name, scheme_name) \
 SCM_SNARF_HERE(static SCM c_name) \
-SCM_SNARF_INIT(c_name = scm_permanent_object (scm_intern0 (scheme_name)); 
SCM_SETCDR (c_name, SCM_BOOL_F))
+SCM_SNARF_INIT(c_name = scm_permanent_object (scm_sysintern (scheme_name, 
SCM_BOOL_F));)
 
 #define SCM_GLOBAL_VCELL(c_name, scheme_name) \
 SCM_SNARF_HERE(SCM c_name) \
-SCM_SNARF_INIT(c_name = scm_permanent_object (scm_intern0 (scheme_name)); 
SCM_SETCDR (c_name, SCM_BOOL_F))
+SCM_SNARF_INIT(c_name = scm_permanent_object (scm_sysintern (scheme_name, 
SCM_BOOL_F));)
 
 #define SCM_VCELL_INIT(c_name, scheme_name, init_val) \
 SCM_SNARF_HERE(static SCM c_name) \
-SCM_SNARF_INIT(c_name = scm_permanent_object (scm_intern0 (scheme_name)); 
SCM_SETCDR (c_name, init_val))
+SCM_SNARF_INIT(c_name = scm_permanent_object (scm_sysintern (scheme_name, 
init_val));)
 
 #define SCM_GLOBAL_VCELL_INIT(c_name, scheme_name, init_val) \
 SCM_SNARF_HERE(SCM c_name) \
-SCM_SNARF_INIT(c_name = scm_permanent_object (scm_intern0 (scheme_name)); 
SCM_SETCDR (c_name, init_val))
+SCM_SNARF_INIT(c_name = scm_permanent_object (scm_sysintern (scheme_name, 
init_val));)
 
 #define SCM_CONST_LONG(c_name, scheme_name,value) \
 SCM_VCELL_INIT(c_name, scheme_name, scm_long2num(value))