8544a66257
There are some rare situations with completely symmetrical graphs which mean that there isn't a "more correct" error. This is due to the annoying map iteration non-determinism, and so instead of fighting to remove every bit of that, let's just accept more than one error here.
22 lines
712 B
Plaintext
22 lines
712 B
Plaintext
-- main.mcl --
|
|
import "fmt"
|
|
|
|
# TODO: should this be allowed? it means the func value has two different types!
|
|
# this should be a polymorphic function as a value, iow a lambda
|
|
$add = func($x) {
|
|
$x + $x
|
|
}
|
|
|
|
$num = 2
|
|
$out1 = $add($num) # 4
|
|
|
|
test [fmt.printf("%d + %d is %d", $num, $num, $out1),] {} # simple math
|
|
|
|
$val = "hello"
|
|
$out2 = $add($val) # hellohello
|
|
|
|
test [fmt.printf("%s + %s is %s", $val, $val, $out2),] {} # simple concat
|
|
-- OUTPUT --
|
|
# err: errUnify: unify error with: topLevel(singleton(func(x) { call:_operator(str("+"), var(x), var(x)) })): type error: str != int
|
|
# err: errUnify: unify error with: topLevel(singleton(func(x) { call:_operator(str("+"), var(x), var(x)) })): type error: int != str
|