From 6d606e84e0c406ce264809934ae448d6fd7ab8df Mon Sep 17 00:00:00 2001
From: Yuichi Nishiwaki <yuichi.nishiwaki@gmail.com>
Date: Tue, 29 Oct 2013 02:50:12 +0900
Subject: [PATCH] add some missing numeric functions

---
 piclib/built-in.scm | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/piclib/built-in.scm b/piclib/built-in.scm
index afe90b7a..d7070353 100644
--- 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)))