mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-01 12:20:26 +02:00
Code Activity

(scm_init_rw_builtins): Renamed from scm_init_rw. Return

Browse source 
SCM_UNSPECIFIED.
(scm_init_rw): Only register `%init-rw-builtins' procedure.
This commit is contained in:
Marius Vollmer 2001-05-19 00:24:15 +00:00
parent deec8fc26c
commit e615ee8d21
1 changed files with 9 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

15
libguile/rw.c
View file

@ -160,17 +160,20 @@ SCM_DEFINE (scm_read_string_x_partial, "read-string!/partial", 1, 3, 0,
} }
#undef FUNC_NAME #undef FUNC_NAME
void SCM
scm_init_rw () 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 #ifndef SCM_MAGIC_SNARFER
#include "libguile/rw.x" #include "libguile/rw.x"
#endif #endif
scm_set_current_module (old_module); return SCM_UNSPECIFIED;
}
void
scm_init_rw ()
{
scm_make_gsubr ("%init-rw-builtins", 0, 0, 0, scm_init_rw_builtins);
} }
/* /*