Merge commit 'b3da313'

[simantics/platform.git] / tests / org.simantics.scl.compiler.tests / src / org / simantics / scl / compiler / tests / scl / Relations2.scl

import "StandardLibrary"

MyExecute ?procedure :-
    @enforce
    Execute (?procedure "Foo")

main = do
    v = ref ""
    enforce MyExecute (v :=)
    getRef v 
--
Foo