This commit is contained in:
Umur Ozkul 2022-05-04 21:23:40 +02:00
parent 85b8333a09
commit 8aa4248996

View File

@ -62,7 +62,7 @@ describe("call and bindings", () => {
testEvalToBe("f(x)=x+1; g(x)=f(x)+1; g(2)", "Ok(4)") testEvalToBe("f(x)=x+1; g(x)=f(x)+1; g(2)", "Ok(4)")
}) })
describe("function trics", () => { describe("function tricks", () => {
testParseToBe( testParseToBe(
"f(x)=f(y)=2; f(2)", "f(x)=f(y)=2; f(2)",
"Ok((:$$block (:$$block (:$let :f (:$$lambda [x] (:$$block (:$let :f (:$$lambda [y] (:$$block 2)))))) (:f 2))))", "Ok((:$$block (:$$block (:$let :f (:$$lambda [x] (:$$block (:$let :f (:$$lambda [y] (:$$block 2)))))) (:f 2))))",