Added missing negative case
This commit is contained in:
parent
318820521a
commit
f8a67a390d
2 changed files with 2 additions and 0 deletions
|
@ -15,6 +15,7 @@
|
|||
[(> ?x 0) (pos? ?x)]
|
||||
|
||||
[(< ?x 0) (neg? ?x)]
|
||||
[(> 0 ?x) (neg? ?x)]
|
||||
|
||||
; nil?
|
||||
[(= ?x nil) (nil? ?x)]
|
||||
|
|
|
@ -13,6 +13,7 @@
|
|||
'(pos? x) '(< 0 x)
|
||||
'(pos? x) '(> x 0)
|
||||
'(neg? x) '(< x 0)
|
||||
'(neg? x) '(> 0 x)
|
||||
'(nil? x) '(= nil x)
|
||||
'(nil? x) '(= x nil)))
|
||||
|
||||
|
|
Loading…
Reference in a new issue