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/mallocs.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/mallocs.c')
-rw-r--r-- | libguile/mallocs.c | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/libguile/mallocs.c b/libguile/mallocs.c index 00ef56956..65bff6fcb 100644 --- a/libguile/mallocs.c +++ b/libguile/mallocs.c @@ -54,7 +54,7 @@ static int prinmalloc (SCM exp,SCM port,scm_print_state *pstate) { scm_puts("#<malloc ", port); - scm_intprint((int) SCM_CDR(exp), 16, port); + scm_intprint (SCM_CELL_WORD_1 (exp), 16, port); scm_putc('>', port); return 1; } @@ -67,11 +67,7 @@ int scm_tc16_malloc; SCM scm_malloc_obj (scm_sizet n) { - SCM mem; - - mem = (n - ? (SCM)malloc (n) - : 0); + scm_bits_t mem = n ? (scm_bits_t) malloc (n) : 0; if (n && !mem) { SCM_ALLOW_INTS; |