mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-29 14:30:34 +02:00
Code Activity

Use SCM{_SET}?_CELL_OBJECT if a cell is not known to be a valid pair yet.

Browse source
This commit is contained in:
Dirk Herrmann 2000-05-08 11:53:01 +00:00
parent ab66ae47f2
commit 665aeda3e5
2 changed files with 9 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

5
libguile/ChangeLog
View file

@ -1,3 +1,8 @@
2000-05-08 Dirk Herrmann <D.Herrmann@tu-bs.de>
* alist.c (scm_acons): Use SCM{_SET}?_CELL_OBJECT as long as a
cell is not known to be a valid pair.
2000-05-08 Dirk Herrmann <D.Herrmann@tu-bs.de>
* eval.c (ASRTSYNTAX, scm_m_body, scm_m_letrec1): Removed

8
libguile/alist.c
View file

@ -65,12 +65,12 @@ SCM_DEFINE (scm_acons, "acons", 3, 0, 0,
SCM head;
SCM_NEWCELL (pair);
SCM_SETCAR (pair, key);
SCM_SETCDR (pair, value);
SCM_SET_CELL_OBJECT_0 (pair, key);
SCM_SET_CELL_OBJECT_1 (pair, value);
SCM_NEWCELL (head);
SCM_SETCAR (head, pair);
SCM_SETCDR (head, alist);
SCM_SET_CELL_OBJECT_0 (head, pair);
SCM_SET_CELL_OBJECT_1 (head, alist);
return head;
}