54 |
|
|
55 |
#define SCM_NILP(x) (SCM_EQ_P ((x), SCM_ELISP_NIL)) |
#define SCM_NILP(x) (SCM_EQ_P ((x), SCM_ELISP_NIL)) |
56 |
|
|
|
#if 0 |
|
|
SCM_API SCM scm_lisp_nil; |
|
|
SCM_API SCM scm_lisp_t; |
|
|
|
|
|
#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) |
|
|
#define SCM_EOL_IFY(x, tmp) (tmp = (x), SCM_NILP (tmp) ? SCM_EOL : tmp) |
|
|
#define SCM_NIL_IFY(x, tmp) (tmp = (x), SCM_NILP (tmp) ? scm_lisp_nil : tmp) |
|
|
|
|
|
|
|
|
|
|
|
SCM_API SCM scm_nil_cons (SCM x, SCM y); |
|
|
SCM_API SCM scm_nil_car (SCM x); |
|
|
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 */ |
|
57 |
SCM_API void scm_init_lang (void); |
SCM_API void scm_init_lang (void); |
58 |
|
|
59 |
#else /* ! SCM_ENABLE_ELISP */ |
#else /* ! SCM_ENABLE_ELISP */ |
60 |
|
|
61 |
#define SCM_NILP(x) 0 |
#define SCM_NILP(x) 0 |
62 |
|
|
63 |
#endif /* ! SCM_ENABLE_ELISP */ |
#endif /* ! SCM_ENABLE_ELISP */ |
64 |
|
|
65 |
#define SCM_NULL_OR_NIL_P(x) (SCM_NULLP (x) || SCM_NILP (x)) |
#define SCM_NULL_OR_NIL_P(x) (SCM_NULLP (x) || SCM_NILP (x)) |