diff options
-rw-r--r-- | libguile/__scm.h | 22 | ||||
-rw-r--r-- | libguile/error.h | 22 |
2 files changed, 22 insertions, 22 deletions
diff --git a/libguile/__scm.h b/libguile/__scm.h index 233cdd0df..de2c329e4 100644 --- a/libguile/__scm.h +++ b/libguile/__scm.h @@ -321,28 +321,6 @@ typedef long SCM_STACKITEM; #define SCM_STACK_PTR(ptr) ((SCM_STACKITEM *) (void *) (ptr)) -#ifndef SCM_MAGIC_SNARFER -/* Let these macros pass through if - we are snarfing; thus we can tell the - difference between the use of an actual - number vs. the use of one of these macros -- - actual numbers in SCM_VALIDATE_* and SCM_ASSERT - constructs must match the formal argument name, - but using SCM_ARG* avoids the test */ - -#define SCM_ARGn 0 -#define SCM_ARG1 1 -#define SCM_ARG2 2 -#define SCM_ARG3 3 -#define SCM_ARG4 4 -#define SCM_ARG5 5 -#define SCM_ARG6 6 -#define SCM_ARG7 7 - -#endif /* SCM_MAGIC_SNARFER */ - - - /* Handling thread-local storage (TLS). */ #ifdef SCM_HAVE_THREAD_STORAGE_CLASS diff --git a/libguile/error.h b/libguile/error.h index 8a78e8cba..30e906669 100644 --- a/libguile/error.h +++ b/libguile/error.h @@ -74,6 +74,28 @@ SCM_INTERNAL void scm_init_error (void); +#ifndef SCM_MAGIC_SNARFER +/* Let these macros pass through if + we are snarfing; thus we can tell the + difference between the use of an actual + number vs. the use of one of these macros -- + actual numbers in SCM_VALIDATE_* and SCM_ASSERT + constructs must match the formal argument name, + but using SCM_ARG* avoids the test */ + +#define SCM_ARGn 0 +#define SCM_ARG1 1 +#define SCM_ARG2 2 +#define SCM_ARG3 3 +#define SCM_ARG4 4 +#define SCM_ARG5 5 +#define SCM_ARG6 6 +#define SCM_ARG7 7 + +#endif /* SCM_MAGIC_SNARFER */ + + + #define SCM_MAKE_VALIDATE(pos, var, pred) \ do { \ SCM_ASSERT_TYPE (SCM_ ## pred (var), var, pos, FUNC_NAME, #pred); \ |