summaryrefslogtreecommitdiff
path: root/libguile/mallocs.c
diff options
context:
space:
mode:
authorDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2000-04-03 08:47:51 +0000
committerDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2000-04-03 08:47:51 +0000
commit54778cd31205b1f50397cf7bf92f7d8b37c99870 (patch)
treeca3676c72e75e70a0184e7c50084660e62e9d6a3 /libguile/mallocs.c
parentabeed821987ec1476e6a7836f1ed8ba8a6185959 (diff)
downloadguile-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.c8
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;