false is nil not 0

2021-05-15 13:29:49 +02:00
parent 1670ba9a9f
commit fb25a7ea40
1 changed files with 2 additions and 2 deletions
--- a/stdlib/stdlib.lsp
+++ b/stdlib/stdlib.lsp
@@ -1,8 +1,8 @@
 ; not a bool
 (defun not (x) (if x nil 1))

-(defun is-pos? (n) (> n 0))
-(defun is-neg? (n) (< n 0))
+(defun is-pos? (n) (> n nil))
+(defun is-neg? (n) (< n nil))

 (defun neg (n) (- 0 n))
 (defun dec (n) (- n 1))