Macros2.scl

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