(refs #7307) Added features field to SCL module header

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

import "Prelude"

test :: () -> [Integer]
test _ = do
  header = [0]
  rows = map (\foo -> map (\bar -> bar) [foo]) [1..5]
  foldl (+) header rows
  
main = test ()
--
[0, 1, 2, 3, 4, 5]