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

* Replace SCM_UNPACK_CAR appropriately.

Browse source
This commit is contained in:
Dirk Herrmann 2000-05-23 22:23:56 +00:00
parent 445f675cf4
commit 206d3de31e
9 changed files with 17 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/objects.c
View file

@ -167,8 +167,8 @@ scm_class_of (SCM x)
/* fall through to ports */
}
case scm_tc7_port:
return scm_port_class[(SCM_WRTNG & SCM_UNPACK_CAR (x)
? (SCM_RDNG & SCM_UNPACK_CAR (x)
return scm_port_class[(SCM_WRTNG & SCM_CELL_WORD_0 (x)
? (SCM_RDNG & SCM_CELL_WORD_0 (x)
? SCM_INOUT_PCLASS_INDEX | SCM_PTOBNUM (x)
: SCM_OUT_PCLASS_INDEX | SCM_PTOBNUM (x))
: SCM_IN_PCLASS_INDEX | SCM_PTOBNUM (x))];