summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorMatthias Andreas Benkard <code@mail.matthias.benkard.de>2009-11-29 01:55:22 +0100
committerMatthias Andreas Benkard <code@mail.matthias.benkard.de>2009-11-29 01:55:22 +0100
commit21fff8e99ca4891ba878d4d2e0c5703185e4e0c4 (patch)
tree98789222e78e7da6fd7035333287c83256bba376 /src
parentc12fcdddece33fd3a849299305dcd11bbe44deba (diff)
Support numbers other than floats.
Diffstat (limited to 'src')
-rw-r--r--src/logikorr.clj3
1 files changed, 2 insertions, 1 deletions
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\""))