diff options
| author | Andy Wingo <wingo@pobox.com> | 2009-12-08 21:41:48 +0100 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2009-12-08 23:13:13 +0100 |
| commit | 34dfef5135a8f65b85f5b3c72168ca2900d9dbcc (patch) | |
| tree | dce7d7490a5f1bda29f1ffdc4de4821d6e7dcb9e /libguile/modules.c | |
| parent | 4afe4ab42ab8a6b0f869cfc2b4d0ff0d8e0a8f48 (diff) | |
| download | guile-34dfef5135a8f65b85f5b3c72168ca2900d9dbcc.tar.gz | |
SCM_CELL in modules.c
* libguile/modules.c (SCM_F_EVAL_CLOSURE_INTERFACE)
(SCM_EVAL_CLOSURE_INTERFACE_P, scm_standard_interface_eval_closure):
Fix to not use SCM_CELL macros.
Diffstat (limited to 'libguile/modules.c')
| -rw-r--r-- | libguile/modules.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/libguile/modules.c b/libguile/modules.c index 58c524877..545281a18 100644 --- a/libguile/modules.c +++ b/libguile/modules.c @@ -483,9 +483,9 @@ SCM_DEFINE (scm_module_variable, "module-variable", 2, 0, 0, scm_t_bits scm_tc16_eval_closure; -#define SCM_F_EVAL_CLOSURE_INTERFACE (1<<16) +#define SCM_F_EVAL_CLOSURE_INTERFACE (1<<0) #define SCM_EVAL_CLOSURE_INTERFACE_P(e) \ - (SCM_CELL_WORD_0 (e) & SCM_F_EVAL_CLOSURE_INTERFACE) + (SCM_SMOB_FLAGS (e) & SCM_F_EVAL_CLOSURE_INTERFACE) /* NOTE: This function may be called by a smob application or from another C function directly. */ @@ -521,7 +521,7 @@ SCM_DEFINE (scm_standard_interface_eval_closure, "Such a closure does not allow new bindings to be added.") #define FUNC_NAME s_scm_standard_interface_eval_closure { - SCM_RETURN_NEWSMOB (scm_tc16_eval_closure | SCM_F_EVAL_CLOSURE_INTERFACE, + SCM_RETURN_NEWSMOB (scm_tc16_eval_closure | (SCM_F_EVAL_CLOSURE_INTERFACE<<16), SCM_UNPACK (module)); } #undef FUNC_NAME |