[uim commit] r5048 - branches/sigscheme-0.7/src

[codesite-noreply]

Author: yamakenz
Date: Thu Nov 22 02:49:42 2007
New Revision: 5048
Modified:
  branches/sigscheme-0.7/src/storage-compact.h

Log:
* src/storage-compact.h
 - Port r5047 from trunk


Modified: branches/sigscheme-0.7/src/storage-compact.h
==============================================================================
--- branches/sigscheme-0.7/src/storage-compact.h        (original)
+++ branches/sigscheme-0.7/src/storage-compact.h        Thu Nov 22 02:49:42 2007
@@ -641,11 +641,11 @@
 #define SCM_ISAL_SYMBOL_INIT(o, n, c)                                  
     \
     do {                                                               
     \
         char *_s = scm_align_str(n);                                   
     \
-        (SCM_ASSERT(SCM_ALIGNED_SYMBOL_NAME(_s)),                      
     \
-         SCM_INIT((o),                                                 
     \
-                  (c),                                                 
     \
-                  (scm_uintobj_t)(_s) | SCM_MTAG_SYMBOL,               
     \
-                  SCM_PTAG_MISC));                                     
     \
+        SCM_ASSERT(SCM_ALIGNED_SYMBOL_NAME(_s));                       
     \
+        SCM_INIT((o),                                                  
     \
+                 (c),                                                  
     \
+                 (scm_uintobj_t)(_s) | SCM_MTAG_SYMBOL,                
     \
+                 SCM_PTAG_MISC);                                       
     \
    } while (0)
#define SCM_CELL_SYMBOLP(c)            SCM_MISC_CELL_TYPEP((c), SYMBOL)
 #define SCM_CELL_SYMBOL_FIN(c)                                         
     \