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

false is nil not 0

Browse Source
This commit is contained in:
VaclavT
2021-05-15 13:29:49 +02:00
parent 1670ba9a9f
commit fb25a7ea40
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
(defun not (x) (if x nil 1)) (defun not (x) (if x nil 1))
(defun is-pos? (n) (> n 0)) (defun is-pos? (n) (> n nil))
(defun is-neg? (n) (< n 0)) (defun is-neg? (n) (< n nil))
(defun neg (n) (- 0 n)) (defun neg (n) (- 0 n))
(defun dec (n) (- n 1)) (defun dec (n) (- n 1))