vaclavt/mlisp
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

fix is-pos? and is-neg? functions

Browse Source
This commit is contained in:
vaclavt
2022-02-28 19:47:35 +01:00
parent 3c698824ec
commit 25252e3954
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
stdlib/stdlib.lsp
View File

@@ -1,8 +1,8 @@
; not a bool ; not a bool
(defn not (x) (if x nil #t)) (defn not (x) (if x nil #t))
(defn is-pos? (n) (> n nil)) (defn is-pos? (n) (> n 0))
(defn is-neg? (n) (< n nil)) (defn is-neg? (n) (< n 0))
(defn neg (n) (- 0 n)) (defn neg (n) (- 0 n))
(defn dec (n) (- n 1)) (defn dec (n) (- n 1))