diff options
author | Marius Vollmer <mvo@zagadka.de> | 2001-06-14 20:14:09 +0000 |
---|---|---|
committer | Marius Vollmer <mvo@zagadka.de> | 2001-06-14 20:14:09 +0000 |
commit | 1385d8aee3436a7166baeb7b5cc7ce27762561fd (patch) | |
tree | d52e3a776a53e7b5675c0ca44c27ea41629e71dd /libguile/lang.c | |
parent | b629af45cba2b34fee0ad078581d231df1e1b86c (diff) | |
download | guile-1385d8aee3436a7166baeb7b5cc7ce27762561fd.tar.gz |
Replace "scm_*_t" with "scm_t_*", except "scm_lisp_t".
Diffstat (limited to 'libguile/lang.c')
-rw-r--r-- | libguile/lang.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/lang.c b/libguile/lang.c index ee15c66ac..82378e0ff 100644 --- a/libguile/lang.c +++ b/libguile/lang.c @@ -114,7 +114,7 @@ SCM_DEFINE (scm_null, "null", 1, 0, 0, "return LISP's nil otherwise.") #define FUNC_NAME s_scm_null { - return (SCM_NILP (x) || SCM_NULLP (x) || SCM_FALSEP (x)) ? scm_t_lisp : scm_lisp_nil; + return (SCM_NILP (x) || SCM_NULLP (x) || SCM_FALSEP (x)) ? scm_lisp_t : scm_lisp_nil; } #undef FUNC_NAME @@ -146,7 +146,7 @@ SCM_DEFINE1 (scm_nil_eq, "nil-eq", scm_tc7_rpsubr, return ((SCM_EQ_P (x, y) || (SCM_NILP (x) && (SCM_NULLP (y) || SCM_FALSEP (y))) || (SCM_NILP (y) && (SCM_NULLP (x) || SCM_FALSEP (x)))) - ? scm_t_lisp + ? scm_lisp_t : scm_lisp_nil); } #undef FUNC_NAME |