Merge commit 'bf75fd9'

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

import "StandardLibrary"

s1 = [1,2,3]
s2 = [1,3] 
    
main = do
    C ?x :-
        ?x <- s1
        <!> ?x <- s2
    select ?x where C ?x
--
[2]