add some missing numeric functions

2013-10-29 02:50:12 +09:00 · 2013-10-29 02:50:12 +09:00 · 6d606e84e0
parent 15fdbc9c7d
commit 6d606e84e0
1 changed files with 9 additions and 0 deletions
--- a/piclib/built-in.scm
+++ b/piclib/built-in.scm
@ -1,3 +1,12 @@
+(define (zero? n)
+  (= n 0))
+
+(define (positive? x)
+  (> x 0))
+
+(define (negative? x)
+  (< x 0))
+
 (define (caar p)
  (car (car p)))