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

* rdelim.c (scm_init_rdelim_builtins): don't try to activate the

Browse source 
(ice-9 rdelim) module in (guile) and (guile-user).  it didn't
	work reliably anymore.  try it from boot-9.scm instead.
This commit is contained in:
Gary Houston 2001-06-10 20:42:31 +00:00
parent 6a9003d3a4
commit 811727c704
1 changed files with 0 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

12
libguile/rdelim.c
View file

@ -289,18 +289,6 @@ scm_init_rdelim_builtins (void)
#include "libguile/rdelim.x" #include "libguile/rdelim.x"
#endif #endif
#if DEBUG_DEPRECATED == 0
{
SCM old_module = scm_current_module ();
const char expr[] = "\
(define-module (guile) :use-module (ice-9 rdelim))\
(define-module (guile-user) :use-module (ice-9 rdelim))";
scm_eval_string (scm_makfromstr (expr, (sizeof expr) - 1, 0));
scm_set_current_module (old_module);
}
#endif
return SCM_UNSPECIFIED; return SCM_UNSPECIFIED;
} }