mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +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
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
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);
}
/*