From 25252e39543726e62c16a8f146232e7d5c0c483d Mon Sep 17 00:00:00 2001 From: vaclavt Date: Mon, 28 Feb 2022 19:47:35 +0100 Subject: [PATCH] fix is-pos? and is-neg? functions --- stdlib/stdlib.lsp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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))