diff options
author | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2001-05-27 22:00:03 +0000 |
---|---|---|
committer | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2001-05-27 22:00:03 +0000 |
commit | 729dbac32f9b3a8b2c6fe399f4e725549cecd1e7 (patch) | |
tree | b8ffb0687a7290e037a64aef646fee3747574db0 /libguile/eval.c | |
parent | fc62c86a599039709b22783a0abc552a5f33719e (diff) | |
download | guile-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.c | 5 |
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; |