diff options
author | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2000-04-03 08:47:51 +0000 |
---|---|---|
committer | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2000-04-03 08:47:51 +0000 |
commit | 54778cd31205b1f50397cf7bf92f7d8b37c99870 (patch) | |
tree | ca3676c72e75e70a0184e7c50084660e62e9d6a3 /libguile/macros.c | |
parent | abeed821987ec1476e6a7836f1ed8ba8a6185959 (diff) | |
download | guile-54778cd31205b1f50397cf7bf92f7d8b37c99870.tar.gz |
Lots of fixes to make guile (at some time) compile with strict typing.
Diffstat (limited to 'libguile/macros.c')
-rw-r--r-- | libguile/macros.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/libguile/macros.c b/libguile/macros.c index 86dea1479..87ec8abd9 100644 --- a/libguile/macros.c +++ b/libguile/macros.c @@ -61,7 +61,7 @@ SCM_DEFINE (scm_makacro, "procedure->syntax", 1, 0, 0, #define FUNC_NAME s_scm_makacro { SCM_VALIDATE_PROC (1,code); - SCM_RETURN_NEWSMOB (scm_tc16_macro, code); + SCM_RETURN_NEWSMOB (scm_tc16_macro, SCM_UNPACK (code)); } #undef FUNC_NAME @@ -83,7 +83,7 @@ SCM_DEFINE (scm_makmacro, "procedure->macro", 1, 0, 0, #define FUNC_NAME s_scm_makmacro { SCM_VALIDATE_PROC (1,code); - SCM_RETURN_NEWSMOB (scm_tc16_macro | (1L << 16), code); + SCM_RETURN_NEWSMOB (scm_tc16_macro | (1L << 16), SCM_UNPACK (code)); } #undef FUNC_NAME @@ -105,7 +105,7 @@ SCM_DEFINE (scm_makmmacro, "procedure->memoizing-macro", 1, 0, 0, #define FUNC_NAME s_scm_makmmacro { SCM_VALIDATE_PROC (1,code); - SCM_RETURN_NEWSMOB (scm_tc16_macro | (2L << 16), code); + SCM_RETURN_NEWSMOB (scm_tc16_macro | (2L << 16), SCM_UNPACK (code)); } #undef FUNC_NAME |