IfWithoutElse.scl

   1 import "Prelude"\r
   2 \r
   3 main = do\r
   4     x = ref 3\r
   5     if 2 > 1\r
   6     then x := 4\r
   7     if 1 > 2\r
   8     then x := 8\r
   9     getRef x\r
  10 --\r
  11 4