diff options
author | Neil Jerram <neil@ossau.uklinux.net> | 2002-01-22 23:31:39 +0000 |
---|---|---|
committer | Neil Jerram <neil@ossau.uklinux.net> | 2002-01-22 23:31:39 +0000 |
commit | c96d76b88dcb7805311d14e6e408d064211fde20 (patch) | |
tree | 08d604bcf94ceb35dd271c4c46064ed60644f5b4 /libguile/lang.h | |
parent | 229d2c9c076d214457f4f6817f7d3c1db90ed994 (diff) | |
download | guile-c96d76b88dcb7805311d14e6e408d064211fde20.tar.gz |
* First batch of libguile changes for Elisp support.
* Fixed a few typos.
* Minor rationalization of macros relating to source breakpoints.
Diffstat (limited to 'libguile/lang.h')
-rw-r--r-- | libguile/lang.h | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/libguile/lang.h b/libguile/lang.h index ae10869b5..dba8a8f28 100644 --- a/libguile/lang.h +++ b/libguile/lang.h @@ -50,10 +50,14 @@ +#ifdef SCM_ENABLE_ELISP + +#define SCM_NILP(x) (SCM_EQ_P ((x), SCM_ELISP_NIL)) + +#if 0 SCM_API SCM scm_lisp_nil; SCM_API SCM scm_lisp_t; -#define SCM_NILP(x) (SCM_EQ_P ((x), scm_lisp_nil)) #define SCM_NILNULLP(x) (SCM_NILP (x) || SCM_NULLP (x)) #define SCM_NIL2EOL(x, tmp) (SCM_EQ_P ((tmp = (x)), scm_lisp_nil) ? SCM_EOL : tmp) #define SCM_EOL2NIL(x, tmp) (SCM_NULLP (tmp = (x)) ? scm_lisp_nil : tmp) @@ -68,7 +72,13 @@ SCM_API SCM scm_nil_cdr (SCM x); SCM_API SCM scm_null (SCM x); SCM_API SCM scm_m_while (SCM exp, SCM env); SCM_API SCM scm_nil_eq (SCM x, SCM y); +#endif /* 0 */ SCM_API void scm_init_lang (void); +#else /* ! SCM_ENABLE_ELISP */ +#define SCM_NILP(x) 0 +#endif /* ! SCM_ENABLE_ELISP */ + +#define SCM_NULL_OR_NIL_P(x) (SCM_NULLP (x) || SCM_NILP (x)) #endif /* SCM_LANG_H */ |