[uim-commit] r2237 - branches/r5rs/sigscheme

[kzk at freedesktop.org]

Author: kzk
Date: 2005-11-22 22:22:29 -0800 (Tue, 22 Nov 2005)
New Revision: 2237

Modified:
   branches/r5rs/sigscheme/sigschemeinternal.h
Log:
* sigscheme/sigschemeinternal.h
  - (SCM_QUEUE_APPEND): add CONSTCOND


Modified: branches/r5rs/sigscheme/sigschemeinternal.h
===================================================================
--- branches/r5rs/sigscheme/sigschemeinternal.h	2005-11-23 01:37:54 UTC (rev 2236)
+++ branches/r5rs/sigscheme/sigschemeinternal.h	2005-11-23 06:22:29 UTC (rev 2237)
@@ -329,7 +329,7 @@
         DEREF(_q) = (_lst);                     \
         while (CONSP(DEREF(_q)))                \
             (_q) = REF_CDR(DEREF(_q));          \
-    } while (0)
+    } while (/* CONSTCOND */ 0)
 #define SCM_QUEUE_TERMINATOR(_q)          (DEREF(_q))
 #define SCM_QUEUE_SLOPPY_APPEND(_q, _lst) (DEREF(_q) = (_lst))