mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-05 15:10:27 +02:00
Code Activity

Again, SCM/scm_bits_t mixup fixes.

Browse source
This commit is contained in:
Dirk Herrmann 2000-04-19 11:32:05 +00:00
parent 3201d76356
commit 9e882eeca8
3 changed files with 12 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
libguile/ChangeLog
View file

@ -1,3 +1,11 @@
2000-04-19 Dirk Herrmann <D.Herrmann@tu-bs.de>
* print.c (scm_iprin1): Don't assign zero to SCM values, use
SCM_UNDEFINED instead.
* weaks.c (scm_make_weak_vector): Fix assignment of zero to a
vector element. (Still to be improved)
2000-04-19 Dirk Herrmann <D.Herrmann@tu-bs.de> 2000-04-19 Dirk Herrmann <D.Herrmann@tu-bs.de>
* eval.c (undef_cell): Removed, replaced by: * eval.c (undef_cell): Removed, replaced by:

4
libguile/print.c
View file

@ -398,7 +398,7 @@ taloop:
name = scm_macro_name (exp); name = scm_macro_name (exp);
if (!SCM_CLOSUREP (SCM_CDR (exp))) if (!SCM_CLOSUREP (SCM_CDR (exp)))
{ {
code = env = 0; code = env = SCM_UNDEFINED;
scm_puts ("#<primitive-", port); scm_puts ("#<primitive-", port);
} }
else else
@ -427,7 +427,7 @@ taloop:
scm_putc (' ', port); scm_putc (' ', port);
scm_puts (SCM_ROCHARS (name), port); scm_puts (SCM_ROCHARS (name), port);
} }
if (code) if (!SCM_UNBNDP (code))
{ {
if (SCM_PRINT_SOURCE_P) if (SCM_PRINT_SOURCE_P)
{ {

4
libguile/weaks.c
View file

@ -67,9 +67,9 @@ SCM_DEFINE (scm_make_weak_vector, "make-weak-vector", 1, 1, 0,
v = scm_make_vector (scm_sum (k, SCM_MAKINUM (2)), fill); v = scm_make_vector (scm_sum (k, SCM_MAKINUM (2)), fill);
SCM_DEFER_INTS; SCM_DEFER_INTS;
SCM_SETLENGTH(v, SCM_INUM (k), scm_tc7_wvect); SCM_SETLENGTH(v, SCM_INUM (k), scm_tc7_wvect);
SCM_VELTS(v)[0] = SCM_EOL;
SCM_VELTS(v)[1] = (SCM)0;
SCM_SETVELTS(v, SCM_VELTS(v) + 2); SCM_SETVELTS(v, SCM_VELTS(v) + 2);
SCM_VELTS(v)[-2] = SCM_EOL;
SCM_UNPACK (SCM_VELTS (v)[-1]) = 0;
SCM_ALLOW_INTS; SCM_ALLOW_INTS;
return v; return v;
} }