home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Dream 44
/
Amiga_Dream_44.iso
/
RiscPc
/
programmation
/
scm4e2.arc
/
!Scm
/
scm
/
conts
< prev
next >
Wrap
Text File
|
1994-12-26
|
560b
|
29 lines
(define StoredCont #f)
(define dl
(lambda a
(let ((dsp (lambda (x)(begin (display x)(display " ")))))
(for-each dsp a)(newline))))
(define (hito f)
(call-with-current-continuation
(lambda (continuation)(set! StoredCont continuation)))
(dl "hi" f))
(define (hito2 f)
(call-with-current-continuation
(lambda (continuation)(set! StoredCont continuation)))
(dl "hi" f))
(define soe
(lambda (parm)
(call-with-current-continuation
(lambda (cont)
(string-append
"Be ecstatic "
(if (string? parm)
parm
(cont "Argh! Help!")))))))