summaryrefslogtreecommitdiff
path: root/libguile/eval.c
diff options
context:
space:
mode:
authorDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2001-05-27 22:00:03 +0000
committerDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2001-05-27 22:00:03 +0000
commit729dbac32f9b3a8b2c6fe399f4e725549cecd1e7 (patch)
treeb8ffb0687a7290e037a64aef646fee3747574db0 /libguile/eval.c
parentfc62c86a599039709b22783a0abc552a5f33719e (diff)
downloadguile-729dbac32f9b3a8b2c6fe399f4e725549cecd1e7.tar.gz
* Changed the default definition of SCM.
* Fixed some typing problems detected by the above change. * Fixed some problems that were detected by compiling guile with -W.
Diffstat (limited to 'libguile/eval.c')
-rw-r--r--libguile/eval.c5
1 files changed, 3 insertions, 2 deletions
diff --git a/libguile/eval.c b/libguile/eval.c
index 0274da4fe..df458d50a 100644
--- a/libguile/eval.c
+++ b/libguile/eval.c
@@ -2321,7 +2321,8 @@ dispatch:
/* Compute a hash value */
long hashset = SCM_INUM (proc);
long j = n;
- mask = SCM_INUM (SCM_CAR (z = SCM_CDDR (z)));
+ z = SCM_CDDR (z);
+ mask = SCM_INUM (SCM_CAR (z));
proc = SCM_CADR (z);
i = 0;
t.arg1 = arg2;
@@ -3786,7 +3787,7 @@ promise_print (SCM exp, SCM port, scm_print_state *pstate)
int writingp = SCM_WRITINGP (pstate);
scm_puts ("#<promise ", port);
SCM_SET_WRITINGP (pstate, 1);
- scm_iprin1 (SCM_CELL_WORD_1 (exp), port, pstate);
+ scm_iprin1 (SCM_CELL_OBJECT_1 (exp), port, pstate);
SCM_SET_WRITINGP (pstate, writingp);
scm_putc ('>', port);
return !0;