Ticket #1408: suspension.diff

suspension.scm

@@ -5 +5 @@
                     continuation-drop
                     continuation-suspend
                     continuation-resume) 
-  (import scheme chicken ports)
+  (import scheme chicken ports foreign)
 
 (use srfi-18 s11n)
 
@@ -53 +53 @@
          (lambda () (store (get-output-string o)))
          continuation-drop) ) ) ) ) )
 
+(define direct-return
+  (foreign-lambda* void ((scheme-object dk) (scheme-object x))
+    "C_kontinue(dk, x);"))
+
 (define (continuation-resume k . results)
-  (##sys#direct-return (with-input-from-string k deserialize) results) )
+  (direct-return (with-input-from-string k deserialize) results) )
 
 )

tests/simple-test.scm

@@ -4 +4 @@
 
 (let ((args (command-line-arguments)))
   (cond ((member "store" args)
-         (print "saving ...")
          (with-limited-continuation
           (lambda ()
             (let ((r (continuation-suspend
                       (lambda (k)
+                        (print "saving ...")
                         (with-output-to-file "k.data" (cut display k))))))
               (print "reenter: " r)
               (exit)))))
@@ -16 +16 @@
          (print "loading ...")
          (continuation-resume
           (with-input-from-file "k.data" read-string)
-          #f))
+          123))
         (else (print "load or store?"))))