From 21fff8e99ca4891ba878d4d2e0c5703185e4e0c4 Mon Sep 17 00:00:00 2001 From: Matthias Andreas Benkard 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