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

* Fixed some type-related errors.

Browse source
This commit is contained in:
Dirk Herrmann 2000-07-18 16:59:35 +00:00
parent 62850ef3c1
commit 78a3503e56
4 changed files with 16 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

8
libguile/modules.c
View file

@ -188,9 +188,9 @@ scm_system_module_env_p (SCM env)
* The code will be replaced by the low-level environments in next release.
*/
#define OBARRAY(module) (SCM_STRUCT_DATA (module) [0])
#define USES(module) (SCM_STRUCT_DATA (module) [1])
#define BINDER(module) (SCM_STRUCT_DATA (module) [2])
#define OBARRAY(module) (SCM_PACK (SCM_STRUCT_DATA (module) [0]))
#define USES(module) (SCM_PACK (SCM_STRUCT_DATA (module) [1]))
#define BINDER(module) (SCM_PACK (SCM_STRUCT_DATA (module) [2]))
static SCM module_make_local_var_x;
@ -246,7 +246,7 @@ SCM_DEFINE (scm_standard_eval_closure, "standard-eval-closure", 1, 0, 0,
"")
#define FUNC_NAME s_scm_standard_eval_closure
{
SCM cclo = scm_makcclo (f_eval_closure, SCM_MAKINUM (2));
SCM cclo = scm_makcclo (f_eval_closure, 2);
SCM_VELTS (cclo) [1] = module;
return cclo;
}