From f9633b0bef26184c5e36eba25d8b3b6bd687ee18 Mon Sep 17 00:00:00 2001 From: Teddy Date: Sat, 17 Aug 2013 16:26:40 +0800 Subject: fixed a bug in the `SpecialOptForce` --- test/robust_test.log | 2 ++ test/robust_test.scm | 8 ++++++++ 2 files changed, 10 insertions(+) (limited to 'test') diff --git a/test/robust_test.log b/test/robust_test.log index 6feaa56..7507f2a 100644 --- a/test/robust_test.log +++ b/test/robust_test.log @@ -202,3 +202,5 @@ Test Bibonacci numbers: 218922995834555169026 Test Eval: 92 +hello +world diff --git a/test/robust_test.scm b/test/robust_test.scm index ed5dbfb..9e8c98d 100644 --- a/test/robust_test.scm +++ b/test/robust_test.scm @@ -393,3 +393,11 @@ x (display (queen 8)) (display "\n") + +(define prom (delay (and (display "world\n") (lambda () 3)))) +(define prom2 (delay (and (display "hello\n") (force prom)))) +(force prom2) +(force prom2) +(force prom2) +(force prom2) + -- cgit v1.2.3