diff --git a/stdlib/stdlib.lsp b/stdlib/stdlib.lsp index 0761c86..5e5ad0a 100644 --- 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))