diff options
| -rw-r--r-- | src/logikorr.clj | 3 |
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\"")) |