mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-02 04:40:29 +02:00
Code Activity

Remove commented-out declarations (related to Elisp).

Browse source
This commit is contained in:
Neil Jerram 2002-12-29 01:17:39 +00:00
parent db85376112
commit 14a9ba3f2c
2 changed files with 8 additions and 19 deletions
Download patch file Download diff file Expand all files Collapse all files

5
libguile/ChangeLog
View file

@ -1,3 +1,8 @@
2002-12-29 Neil Jerram <neil@ossau.uklinux.net>
* lang.h: Remove declarations matching definitions removed from
lang.c (just below).
2002-12-28 Neil Jerram <neil@ossau.uklinux.net>
* lang.c (scm_nil_cons, scm_nil_car, scm_nil_cdr, scm_null,

22
libguile/lang.h
View file

@ -54,28 +54,12 @@
#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_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 */
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))