[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
guile/guile-core/libguile ChangeLog hooks.c scr...
From: |
Dirk Herrmann |
Subject: |
guile/guile-core/libguile ChangeLog hooks.c scr... |
Date: |
Tue, 12 Dec 2000 06:07:06 -0800 |
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))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- guile/guile-core/libguile ChangeLog hooks.c scr...,
Dirk Herrmann <=