50 |
|
|
51 |
|
|
52 |
|
|
53 |
|
#ifdef SCM_ENABLE_ELISP |
54 |
|
|
55 |
|
#define SCM_NILP(x) (SCM_EQ_P ((x), SCM_ELISP_NIL)) |
56 |
|
|
57 |
|
#if 0 |
58 |
SCM_API SCM scm_lisp_nil; |
SCM_API SCM scm_lisp_nil; |
59 |
SCM_API SCM scm_lisp_t; |
SCM_API SCM scm_lisp_t; |
60 |
|
|
|
#define SCM_NILP(x) (SCM_EQ_P ((x), scm_lisp_nil)) |
|
61 |
#define SCM_NILNULLP(x) (SCM_NILP (x) || SCM_NULLP (x)) |
#define SCM_NILNULLP(x) (SCM_NILP (x) || SCM_NULLP (x)) |
62 |
#define SCM_NIL2EOL(x, tmp) (SCM_EQ_P ((tmp = (x)), scm_lisp_nil) ? SCM_EOL : tmp) |
#define SCM_NIL2EOL(x, tmp) (SCM_EQ_P ((tmp = (x)), scm_lisp_nil) ? SCM_EOL : tmp) |
63 |
#define SCM_EOL2NIL(x, tmp) (SCM_NULLP (tmp = (x)) ? scm_lisp_nil : tmp) |
#define SCM_EOL2NIL(x, tmp) (SCM_NULLP (tmp = (x)) ? scm_lisp_nil : tmp) |
72 |
SCM_API SCM scm_null (SCM x); |
SCM_API SCM scm_null (SCM x); |
73 |
SCM_API SCM scm_m_while (SCM exp, SCM env); |
SCM_API SCM scm_m_while (SCM exp, SCM env); |
74 |
SCM_API SCM scm_nil_eq (SCM x, SCM y); |
SCM_API SCM scm_nil_eq (SCM x, SCM y); |
75 |
|
#endif /* 0 */ |
76 |
SCM_API void scm_init_lang (void); |
SCM_API void scm_init_lang (void); |
77 |
|
#else /* ! SCM_ENABLE_ELISP */ |
78 |
|
#define SCM_NILP(x) 0 |
79 |
|
#endif /* ! SCM_ENABLE_ELISP */ |
80 |
|
|
81 |
|
#define SCM_NULL_OR_NIL_P(x) (SCM_NULLP (x) || SCM_NILP (x)) |
82 |
|
|
83 |
#endif /* SCM_LANG_H */ |
#endif /* SCM_LANG_H */ |
84 |
|
|