Revision: 6238 Author: ek.kato Date: Tue Mar 9 20:21:58 2010 Log: * Merge r6237 from trunk.
http://code.google.com/p/uim/source/detail?r=6238 Modified: /branches/sigscheme-0.8 /branches/sigscheme-0.8/src /branches/sigscheme-0.8/src/storage-gc.c ======================================= --- /branches/sigscheme-0.8/src/storage-gc.c Sat Mar 1 06:30:43 2008 +++ /branches/sigscheme-0.8/src/storage-gc.c Tue Mar 9 20:21:58 2010 @@ -637,7 +637,7 @@ return scm_false; /* The pointer on the stack is 'tagged' to represent its types. * So we need to ignore the tag to get its real pointer value. */ - ptr = SCM_UNTAG_PTR(obj); + ptr = (ScmCell *)SCM_DROP_TAG(obj); #else /* SCM_USE_STORAGE_COMPACT */ ptr = obj; #endif /* SCM_USE_STORAGE_COMPACT */
