fix is-pos? and is-neg? functions

2022-02-28 19:47:35 +01:00
parent 3c698824ec
commit 25252e3954
1 changed files with 2 additions and 2 deletions
--- a/stdlib/stdlib.lsp
+++ b/stdlib/stdlib.lsp
@@ -1,8 +1,8 @@
 ; not a bool
 (defn not (x) (if x nil #t))

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

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