Fixed bug 601,602,603

1 files changed, 33 insertions, 0 deletions

diff --git a/test/files/run/bug603.scala b/test/files/run/bug603.scala
new file mode 100644
index 0000000000..27cee562ce
--- /dev/null
+++ b/test/files/run/bug603.scala
@@ -0,0 +1,33 @@
+object lazy {
+  class Susp[+A](lazyValue: => A) extends Function0[A] {
+    private var func: () => Any = () => lazyValue
+    private var value: Any = null
+
+    override def apply() = {
+      if (func != null) {
+        value = func().asInstanceOf[A]
+        func = null
+      }
+      value.asInstanceOf[A]
+    }
+
+    override def toString() =
+      if (func == null) "Susp(" + value + ")"
+      else "Susp(?)"
+  }
+
+  def delay[A](value: => A) = new Susp[A](value)
+  implicit def force[A](s: Susp[A]): A = s()
+}
+
+object lazy_test {
+  import lazy._
+
+  def main(args: Array[String]) = {
+    val s: Susp[Int] = delay { Console.println("evaluating..."); 3 }
+    Console.println("s = " + s)
+    Console.println("s() = " + s())
+    Console.println("s = " + s)
+    Console.println("2 + s = " + (2 + s))
+  }
+}