12 lines
373 B
Plaintext
12 lines
373 B
Plaintext
(* should return a constant function *)
|
|
let f1 (x : unit) : unit -> tez =
|
|
let amt : tez = Current.amount in
|
|
fun (x : unit) -> amt
|
|
|
|
(* should return an impure function *)
|
|
let f2 (x : unit) : unit -> tez =
|
|
fun (x : unit) -> Current.amount
|
|
|
|
let main (b,s : bool * (unit -> tez)) : operation list * (unit -> tez) =
|
|
(([] : operation list), (if b then f1 () else f2 ()))
|