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

Fix mixup of packed/unpacked SCM values. (Thanks Thien-Thi Nguyen.)

Browse source
This commit is contained in:
Dirk Herrmann 2000-03-20 04:19:54 +00:00
parent 3ab9f56eaf
commit b464b97039
2 changed files with 8 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

5
libguile/ChangeLog
View file

@ -1,3 +1,8 @@
2000-03-20 Dirk Herrmann <D.Herrmann@tu-bs.de>
* eval.h: Fix mixup of packed/unpacked SCM values. (Thanks
Thien-Thi Nguyen for the patch.)
2000-03-20 Dirk Herrmann <D.Herrmann@tu-bs.de>
* numbers.c (scm_ash): Fixed typing problems with the second

6
libguile/eval.h
View file

@ -162,9 +162,9 @@ extern long scm_tc16_macro;
* tag of 1. This is called a "gloc".
*/
#define SCM_GLOC_SYM(x) (SCM_CAR((x)-1L))
#define SCM_GLOC_VAL(x) (SCM_CDR((x)-1L))
#define SCM_GLOC_VAL_LOC(x) (SCM_CDRLOC((x)-1L))
#define SCM_GLOC_SYM(x) (SCM_CAR (SCM_PACK (SCM_UNPACK (x) - 1L)))
#define SCM_GLOC_VAL(x) (SCM_CDR (SCM_PACK (SCM_UNPACK (x) - 1L)))
#define SCM_GLOC_VAL_LOC(x) (SCM_CDRLOC (SCM_PACK (SCM_UNPACK (x) - 1L)))