diff options
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) + |