home *** CD-ROM | disk | FTP | other *** search
/ Dream 44 / Amiga_Dream_44.iso / RiscPc / programmation / scm4e2.arc / !Scm / scm / conts < prev    next >
Text File  |  1994-12-26  |  560b  |  29 lines
  1. (define StoredCont #f)
  2.  
  3.  
  4. (define dl
  5. (lambda a
  6.     (let ((dsp (lambda (x)(begin (display x)(display " ")))))
  7.     (for-each dsp a)(newline))))
  8.  
  9. (define (hito f)
  10.     (call-with-current-continuation
  11.         (lambda (continuation)(set! StoredCont continuation)))
  12.     (dl "hi" f))
  13.  
  14.  
  15. (define (hito2 f)
  16.     (call-with-current-continuation
  17.         (lambda (continuation)(set! StoredCont continuation)))
  18.     (dl "hi" f))
  19.  
  20. (define soe
  21.     (lambda (parm)
  22.     (call-with-current-continuation
  23.         (lambda (cont)
  24.             (string-append
  25.                 "Be ecstatic "
  26.                 (if (string? parm)
  27.                 parm
  28.                 (cont "Argh! Help!")))))))
  29.