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

Rewrote some the test for egen to parse expressions instead of calling internal functions

parent be97b39e
......@@ -33,13 +33,13 @@
(defn function-lookup [& args]
(let [canonical (get function-mapping (first args))]
{:Function (or canonical (first args))
{"$type" "FunctionCallExpression"
:Function (or canonical (first args))
:Arguments (map-indexed
(fn [i arg] {:ArgumentName (str "EXP" (inc i))
:ArgumentValue arg})
(rest args)
)
:IsSdtlName (some? canonical)
"$type" "FunctionCallExpression"}
:IsSdtlName (some? canonical)}
)
)
\ No newline at end of file
This diff is collapsed.
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