From 27da3d030b9cbebad1dba89f065d1d4b5e3b4fc3 Mon Sep 17 00:00:00 2001
From: Yuichi Nishiwaki <yuichi.nishiwaki@gmail.com>
Date: Wed, 16 Oct 2013 17:43:38 +0900
Subject: [PATCH] add less than(<) operator

---
 src/number.c | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

diff --git a/src/number.c b/src/number.c
index 8c591a70..f865ba7a 100644
--- a/src/number.c
+++ b/src/number.c
@@ -3,6 +3,20 @@
 #include "picrin.h"
 #include "picrin/value.h"
 
+static pic_value
+pic_number_lt(pic_state *pic)
+{
+  double f,g;
+
+  pic_get_args(pic, "ff", &f, &g);
+  if (f < g) {
+    return pic_true_value();
+  }
+  else {
+    return pic_false_value();
+  }
+}
+
 static pic_value
 pic_number_sqrt(pic_state *pic)
 {
@@ -76,6 +90,7 @@ pic_number_atan(pic_state *pic)
 void
 pic_init_number(pic_state *pic)
 {
+  pic_defun(pic, "<", pic_number_lt);
   pic_defun(pic, "sqrt", pic_number_sqrt);
   pic_defun(pic, "sin", pic_number_sin);
   pic_defun(pic, "cos", pic_number_cos);