Merge commit '53059ca'

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

import "Prelude"\r
\r
data XYS = XYS { x :: Double, y :: Double, s :: String }\r
\r
len XYS {x = x, y = y} = sqrt (x*x + y*y)\r
\r
main = len (XYS { x = 4, y = 3, s = "Hello world!" })\r
-- \r
5.0