31 lines
524 B
Plaintext
31 lines
524 B
Plaintext
-- main.mcl --
|
|
import "fmt"
|
|
|
|
# we should only see one copy of $s1, $s2 and $fn
|
|
$s1 = "hello"
|
|
$fn = func() {
|
|
$s1 + " " + $s2
|
|
}
|
|
$s2 = "world"
|
|
|
|
test "greeting1" {
|
|
anotherstr => $fn(),
|
|
}
|
|
test "greeting2" {
|
|
anotherstr => $fn(),
|
|
}
|
|
test "greeting3" {
|
|
anotherstr => $fn(),
|
|
}
|
|
-- OUTPUT --
|
|
Edge: FuncValue -> call # fn
|
|
Edge: FuncValue -> call # fn
|
|
Edge: FuncValue -> call # fn
|
|
Vertex: FuncValue
|
|
Vertex: call
|
|
Vertex: call
|
|
Vertex: call
|
|
Vertex: const: str("greeting1")
|
|
Vertex: const: str("greeting2")
|
|
Vertex: const: str("greeting3")
|