diff options
| author | Teddy <ted.sybil@gmail.com> | 2013-08-17 16:26:40 +0800 |
|---|---|---|
| committer | Teddy <ted.sybil@gmail.com> | 2013-08-17 16:26:40 +0800 |
| commit | f9633b0bef26184c5e36eba25d8b3b6bd687ee18 (patch) | |
| tree | 864e0698873d2423c708aec3b57a13b5ce707575 /test | |
| parent | ee6d835fe2e8b88b79f35f54684acb8035b527a1 (diff) | |
fixed a bug in the `SpecialOptForce`
Diffstat (limited to 'test')
| -rw-r--r-- | test/robust_test.log | 2 | ||||
| -rw-r--r-- | test/robust_test.scm | 8 |
2 files changed, 10 insertions, 0 deletions
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) + |