Disallow relative substraction in numeric fields

This commit is contained in:
Andrés Moya 2021-04-20 17:45:28 +02:00
parent 9aee88f9f1
commit 41bf436c3a
2 changed files with 15 additions and 8 deletions

View file

@ -38,8 +38,8 @@
second-value (interpret (second args) init-value)]
(case operator
"+" (+ init-value second-value)
"-" (- init-value second-value)
"*" (* init-value second-value)
"-" (- 0 second-value) ;; Note that there is ambiguity, so we don't allow
"*" (* init-value second-value) ;; relative substraction, it's only a negative number
"/" (/ init-value second-value)))
(let [value (interpret (first args) init-value)]
(loop [value value