Worked on test coverage.

This commit is contained in:
Simon Brooke 2014-08-13 18:06:33 +01:00
parent 07628817bd
commit 34bb22dbfe
2 changed files with 35 additions and 2 deletions

View file

@ -65,7 +65,7 @@
(defn parse-numeric-value
"Parse a number."
[[value & remainder]]
(if (re-matches re-number value) [(read-string value) remainder]))
(if (and value (re-matches re-number value)) [(read-string value) remainder]))
(defn parse-property-int
"Parse a token assumed to be the name of a property of the current cell,