8 lines
183 B
Text
8 lines
183 B
Text
import system.IO
|
|
open bool unit
|
|
|
|
definition when (b : bool) (a : IO unit) : IO unit :=
|
|
cond b a (return star)
|
|
|
|
vm_eval when tt (put_str "hello\n")
|
|
vm_eval when ff (put_str "error\n")
|