diff options
| author | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2009-11-29 01:55:22 +0100 |
|---|---|---|
| committer | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2009-11-29 01:55:22 +0100 |
| commit | 21fff8e99ca4891ba878d4d2e0c5703185e4e0c4 (patch) | |
| tree | 98789222e78e7da6fd7035333287c83256bba376 /src | |
| parent | c12fcdddece33fd3a849299305dcd11bbe44deba (diff) | |
Support numbers other than floats.
Diffstat (limited to 'src')
| -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\"")) |