[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
guile/guile-core/libguile rw.c
From: |
Marius Vollmer |
Subject: |
guile/guile-core/libguile rw.c |
Date: |
Fri, 18 May 2001 17:24:15 -0700 |
CVSROOT: /cvs
Module name: guile
Changes by: Marius Vollmer <address@hidden> 01/05/18 17:24:15
Modified files:
guile-core/libguile: rw.c
Log message:
(scm_init_rw_builtins): Renamed from scm_init_rw. Return
SCM_UNSPECIFIED.
(scm_init_rw): Only register `%init-rw-builtins' procedure.
CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/libguile/rw.c.diff?cvsroot=OldCVS&tr1=1.2&tr2=1.3&r1=text&r2=text
Patches:
Index: guile/guile-core/libguile/rw.c
diff -u guile/guile-core/libguile/rw.c:1.2 guile/guile-core/libguile/rw.c:1.3
--- guile/guile-core/libguile/rw.c:1.2 Tue May 1 17:49:11 2001
+++ guile/guile-core/libguile/rw.c Fri May 18 17:24:15 2001
@@ -160,17 +160,20 @@
}
#undef FUNC_NAME
-void
-scm_init_rw ()
+SCM
+scm_init_rw_builtins ()
{
- SCM rw_module = scm_make_module (scm_read_0str ("(ice-9 rw)"));
- SCM old_module = scm_set_current_module (rw_module);
-
#ifndef SCM_MAGIC_SNARFER
#include "libguile/rw.x"
#endif
+
+ return SCM_UNSPECIFIED;
+}
- scm_set_current_module (old_module);
+void
+scm_init_rw ()
+{
+ scm_make_gsubr ("%init-rw-builtins", 0, 0, 0, scm_init_rw_builtins);
}
/*