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.c | |
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.c')
-rw-r--r-- | libguile/lang.c | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/libguile/lang.c b/libguile/lang.c index f022bee77..463cbeb5c 100644 --- a/libguile/lang.c +++ b/libguile/lang.c @@ -62,6 +62,9 @@ * in all data structures. */ +#ifdef SCM_ENABLE_ELISP +#if 0 + SCM_DEFINE (scm_nil_cons, "nil-cons", 2, 0, 0, (SCM x, SCM y), "Create a new cons cell with @var{x} as the car and @var{y} as\n" @@ -145,17 +148,24 @@ SCM_DEFINE1 (scm_nil_eq, "nil-eq", scm_tc7_rpsubr, } #undef FUNC_NAME +#endif /* 0 */ void scm_init_lang () { +#if 0 #ifndef SCM_MAGIC_SNARFER #include "libguile/lang.x" #endif scm_make_synt ("nil-while", scm_makacro, scm_m_while); +#endif + + scm_c_define ("%nil", SCM_ELISP_NIL); } +#endif /* SCM_ENABLE_ELISP */ + /* Local Variables: c-file-style: "gnu" |