Macros2.scl

   1 import "JavaBuiltin" as Java
   2
   3 @macro
   4 (&<&) :: Integer -> Integer -> Integer
   5 a &<& b = if cmp == 0 then b else cmp
   6   where
   7     cmp = a
   8
   9 main = 3 &<& 7
  10 --
  11 3