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

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-10-04 16:16:29 -0700 (Tue, 04 Oct 2005)
New Revision: 1812

Modified:
   branches/r5rs/sigscheme/sigschemeinternal.h
Log:
* sigscheme/sigschemeinternal.h
  - (SCM_SHIFT_RAW_4, SCM_SHIFT_RAW_5, SCM_SHIFT_EVALED,
    SCM_SHIFT_EVALED_1, SCM_SHIFT_EVALED_2, SCM_SHIFT_EVALED_3,
    SCM_SHIFT_EVALED_4, SCM_SHIFT_EVALED_5): Removed since obsolete


Modified: branches/r5rs/sigscheme/sigschemeinternal.h
===================================================================
--- branches/r5rs/sigscheme/sigschemeinternal.h	2005-10-04 22:35:21 UTC (rev 1811)
+++ branches/r5rs/sigscheme/sigschemeinternal.h	2005-10-04 23:16:29 UTC (rev 1812)
@@ -203,49 +203,6 @@
       && SCM_SHIFT_RAW(elm1, lst)                                            \
       && SCM_SHIFT_RAW(elm2, lst)) ? (lst) : 0)
 
-#define SCM_SHIFT_RAW_4(elm0, elm1, elm2, elm3, lst)                         \
-    ((SCM_SHIFT_RAW(elm0, lst)                                               \
-      && SCM_SHIFT_RAW(elm1, lst)                                            \
-      && SCM_SHIFT_RAW(elm2, lst)                                            \
-      && SCM_SHIFT_RAW(elm3, lst)) ? (lst) : 0)
-
-#define SCM_SHIFT_RAW_5(elm0, elm1, elm2, elm3, elm4, lst)                   \
-    ((SCM_SHIFT_RAW(elm0, lst)                                               \
-      && SCM_SHIFT_RAW(elm1, lst)                                            \
-      && SCM_SHIFT_RAW(elm2, lst)                                            \
-      && SCM_SHIFT_RAW(elm3, lst)                                            \
-      && SCM_SHIFT_RAW(elm4, lst)) ? (lst) : 0)
-
-#define SCM_SHIFT_EVALED(elm, lst, env)                                      \
-    ((!NULLP(lst))                                                           \
-     && ((elm) = EVAL(CAR(lst), env), (lst) = CDR(lst), (lst)))
-
-#define SCM_SHIFT_EVALED_1(elm0, lst, env)                                   \
-    (SCM_SHIFT_EVALED(elm0, lst, env) ? (lst) : 0)
-
-#define SCM_SHIFT_EVALED_2(elm0, elm1, lst, env)                             \
-    ((SCM_SHIFT_EVALED(elm0, lst, env)                                       \
-      && SCM_SHIFT_EVALED(elm1, lst, env)) ? (lst) : 0)
-
-#define SCM_SHIFT_EVALED_3(elm0, elm1, elm2, lst, env)                       \
-    ((SCM_SHIFT_EVALED(elm0, lst, env)                                       \
-      && SCM_SHIFT_EVALED(elm1, lst, env)                                    \
-      && SCM_SHIFT_EVALED(elm2, lst, env)) ? (lst) : 0)
-
-#define SCM_SHIFT_EVALED_4(elm0, elm1, elm2, elm3, lst, env)                 \
-    ((SCM_SHIFT_EVALED(elm0, lst, env)                                       \
-      && SCM_SHIFT_EVALED(elm1, lst, env)                                    \
-      && SCM_SHIFT_EVALED(elm2, lst, env)                                    \
-      && SCM_SHIFT_EVALED(elm3, lst, env)) ? (lst) : 0)
-
-#define SCM_SHIFT_EVALED_5(elm0, elm1, elm2, elm3, elm4, lst, env)           \
-    ((SCM_SHIFT_EVALED(elm0, lst, env)                                       \
-      && SCM_SHIFT_EVALED(elm1, lst, env)                                    \
-      && SCM_SHIFT_EVALED(elm2, lst, env)                                    \
-      && SCM_SHIFT_EVALED(elm3, lst, env)                                    \
-      && SCM_SHIFT_EVALED(elm4, lst, env)) ? (lst) : 0)
-
-
 /* Obscures identifier ID. */
 #define SCM_MANGLE(id) Scm_internal_##id