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

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