Commit 25283314 authored by Sigbjørn Revheim's avatar Sigbjørn Revheim
Browse files

Outputs numbers in a ValueListExpression as NumericConstantExpression

parent 2827b3f8
......@@ -295,7 +295,7 @@
:varlist (fn [& args] args)
:numlist (fn [& args]
{"$type" "ValueListExpression"
:Values args}
:Values (map numeric-constant-expression args)}
)
:simple_range (fn [& [from to]]
(number-range-expression from to 1))
......
......@@ -17,8 +17,9 @@
(defn numeric-constant-expression
[value]
{"$type" "NumericConstantExpression"
:Value value})
(if (number? value) {"$type" "NumericConstantExpression"
:Value value}
value))
(defn string-constant-expression
[value]
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment