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

(scm_frame_current_module): New.

Browse source
This commit is contained in:
Marius Vollmer 2005-03-02 20:14:59 +00:00
parent b5623573b4
commit cb1cfc42a4
2 changed files with 6 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

5
libguile/modules.c
View file

@ -91,6 +91,11 @@ scm_c_call_with_current_module (SCM module,
return scm_c_with_fluid (the_module, module, func, data);
}
void
scm_frame_current_module (SCM module)
{
scm_frame_fluid (the_module, module);
}
/*
convert "A B C" to scheme list (A B C)

1
libguile/modules.h
View file

@ -69,6 +69,7 @@ SCM_API SCM scm_set_current_module (SCM module);
SCM_API SCM scm_c_call_with_current_module (SCM module,
SCM (*func)(void *), void *data);
SCM_API void scm_frame_current_module (SCM module);
SCM_API SCM scm_c_lookup (const char *name);
SCM_API SCM scm_c_define (const char *name, SCM val);