guile-cvs
[Top][All Lists]
Advanced

[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);
 }
 
 /*



reply via email to

[Prev in Thread] Current Thread [Next in Thread]