add plural defun predicate

1 files changed, 2 insertions, 0 deletions

diff --git a/liblali.c b/liblali.c
index a8d8adc..a816ad8 100644
--- a/liblali.c
+++ b/liblali.c
@@ -1672,6 +1672,8 @@ static char *stdlib = LISP(
 
   (defun zerop (x) (not (diff x +0)))
 
+  (defun plural (x) (diff x +0))
+
   (defmacro and args
     (fill ((algo args) t)
           ((algo (cdr args)) (car args))