tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/DefaultMethods1.scl

   1 import "JavaBuiltin" as Java\r
   2 \r
   3 class Ord a where\r
   4     (<) :: a -> a -> Boolean\r
   5     min :: a -> a -> a\r
   6     min x y = if x < y then x else y\r
   7     \r
   8 instance Ord Integer where\r
   9     (<) = Java.icmplt\r
  10 \r
  11 main = min (43 :: Integer) (69 :: Integer) \r
  12 --\r
  13 43