tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/RecursionBug.scl

   1 module {
   2     export = [main]
   3 }
   4
   5 import "Prelude"
   6
   7 data Path = EmptyPath | ConsPath String Path
   8
   9 showR :: Path -> String
  10 showR EmptyPath = "@"
  11 showR (ConsPath h EmptyPath) = h
  12 showR (ConsPath h t) = "\(h)-\(showR t)"
  13
  14 main = "Hello world!"
  15 --
  16 Hello world!