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

   1 // module M1
   2 import "Prelude"
   3
   4 foo :: Integer -> Integer -> Integer
   5 foo = (+)
   6 --
   7 // module M2
   8 import "Prelude"
   9
  10 foo :: String -> String -> String -> <Proc> ()
  11 foo a b c = do
  12     print a
  13     print b
  14     print c
  15 --
  16 import "Prelude"
  17 import "M1"
  18 import "M2"
  19
  20 main = ignore (foo "Hello" "world" "!")
  21 --
  22 Hello
  23 world
  24 !
  25 ()