Add checks for polymorphic/higher order oracles and higher order entrypoints (AEVM)

2019-08-30 11:13:13 +02:00
parent 1ce95b32ac
commit 6fd39d4cb1
4 changed files with 50 additions and 31 deletions
@@ -91,10 +91,11 @@ contract Identity =
  // }
  // let id(x) = x
  // let main(xs) = map(double,xs)
-  entrypoint z(f,x) = x
+  function z(f,x) = x
  function s(n) = (f,x)=>f(n(f,x))
  function add(m,n) = (f,x)=>m(f,n(f,x))
-  entrypoint main(_) =
+
+  entrypoint main() =
    let three=s(s(s(z)))
    add(three,three)
       (((i)=>i+1),0)