62 |
* in all data structures. |
* in all data structures. |
63 |
*/ |
*/ |
64 |
|
|
65 |
|
#ifdef SCM_ENABLE_ELISP |
66 |
|
#if 0 |
67 |
|
|
68 |
SCM_DEFINE (scm_nil_cons, "nil-cons", 2, 0, 0, |
SCM_DEFINE (scm_nil_cons, "nil-cons", 2, 0, 0, |
69 |
(SCM x, SCM y), |
(SCM x, SCM y), |
70 |
"Create a new cons cell with @var{x} as the car and @var{y} as\n" |
"Create a new cons cell with @var{x} as the car and @var{y} as\n" |
148 |
} |
} |
149 |
#undef FUNC_NAME |
#undef FUNC_NAME |
150 |
|
|
151 |
|
#endif /* 0 */ |
152 |
|
|
153 |
|
|
154 |
void |
void |
155 |
scm_init_lang () |
scm_init_lang () |
156 |
{ |
{ |
157 |
|
#if 0 |
158 |
#ifndef SCM_MAGIC_SNARFER |
#ifndef SCM_MAGIC_SNARFER |
159 |
#include "libguile/lang.x" |
#include "libguile/lang.x" |
160 |
#endif |
#endif |
161 |
scm_make_synt ("nil-while", scm_makacro, scm_m_while); |
scm_make_synt ("nil-while", scm_makacro, scm_m_while); |
162 |
|
#endif |
163 |
|
|
164 |
|
scm_c_define ("%nil", SCM_ELISP_NIL); |
165 |
} |
} |
166 |
|
|
167 |
|
#endif /* SCM_ENABLE_ELISP */ |
168 |
|
|
169 |
/* |
/* |
170 |
Local Variables: |
Local Variables: |
171 |
c-file-style: "gnu" |
c-file-style: "gnu" |