From 21fff8e99ca4891ba878d4d2e0c5703185e4e0c4 Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <code@mail.matthias.benkard.de>
Date: Sun, 29 Nov 2009 01:55:22 +0100
Subject: Support numbers other than floats.

---
 src/logikorr.clj | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/logikorr.clj b/src/logikorr.clj
index cf35929..89af417 100644
--- a/src/logikorr.clj
+++ b/src/logikorr.clj
@@ -126,7 +126,8 @@
           num (Integer. score-number)]
       (ds-update (assoc student
                    :score (concat (take num score)
-                                  [(Float. new-score-value)]
+                                  [(binding [*read-eval* false]
+                                     (read-string new-score-value))]
                                   (drop (+ 1 num) score)))))
     "\"OK\""))
 
-- 
cgit v1.2.3