Changeset 33737 in project for release/4/continuations/tags/1.4.1/tests/run.scm

Timestamp:

11/09/16 12:46:56 (2 years ago)

Author:

juergen

Message:

continuations 1.4.1 with current-continuation renamed escape-procedure

Location:

release/4/continuations/tags/1.4.1

Files:

• . (copied) (copied from release/4/continuations/trunk)
• tests/run.scm (modified) (1 diff)

release/4/continuations/tags/1.4.1/tests/run.scm

@@ -63 +63 @@
     (check
       (define (product . nums)
-        (let ((cc (current-continuation)))
+        (let ((cc (escape-procedure)))
           (cond
             ((escape-procedure? cc) ; continuation cc just created