—————————–
module foo
imports liblib
strategies

main =
let Foo = 1 -> 2
Foo = 2 -> 3

  in <Foo> 1 => 2
   ; say(!"1 ok")
   ; <Foo> 2 => 3
   ; say(!"2 ok")
 end

---

---

martin@logistico:~> strc -i foo.str -la liblib
compiling foo.str
front-end succeeded: user 1.45 system 0.17
optimization succeeded: user 0.10 system 0.15
back-end succeeded: user 0.07 system 0.07
gcc foo.o -o foo …
C compilation succeeded: user 0.24 system 0.08
—–
compilation succeeded: user 1.86 system 0.47
—————————-

---

martin@logistico:~> ./foo
1 ok
./foo: rewriting failed
—————————-

Submitted on 3 September 2004 at 13:43

STR-165, martin:
Merging of top-level strategies is implemented in extract (needed-defs). I think it should therefore be implemented in this module.