mes.c: add boolean_p.

2016-07-17 13:32:52 +02:00 · 2016-07-17 13:32:52 +02:00 · 0a497a2765
parent f19d6dfde4
commit 0a497a2765
1 changed files with 6 additions and 0 deletions
--- a/mes.c
+++ b/mes.c
@ -477,6 +477,12 @@ builtin_p (scm *x)
    ? &scm_t : &scm_f;
 }

+scm *
+boolean_p (scm *x)
+{
+  return (x == &scm_t || x == &scm_f) ? &scm_t : &scm_f;
+}
+
 scm *
 char_p (scm *x)
 {