summaryrefslogtreecommitdiff
path: root/libguile/lang.h
diff options
context:
space:
mode:
authorNeil Jerram <neil@ossau.uklinux.net>2002-01-22 23:31:39 +0000
committerNeil Jerram <neil@ossau.uklinux.net>2002-01-22 23:31:39 +0000
commitc96d76b88dcb7805311d14e6e408d064211fde20 (patch)
tree08d604bcf94ceb35dd271c4c46064ed60644f5b4 /libguile/lang.h
parent229d2c9c076d214457f4f6817f7d3c1db90ed994 (diff)
downloadguile-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.h12
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 */