scsh-conservatory
/
scsh-0.6
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Renamed sleep & sleep-until to process-sleep and process-sleep-until.

This commit is contained in:
mainzelm 2001-10-09 19:47:00 +00:00
parent 4f91395748
commit 238dceb380
1 changed files with 5 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
scsh/syscalls.scm
View File

@ -17,12 +17,9 @@
;;; Move this to somewhere else as soon as Marc published his SRFI ;;; Move this to somewhere else as soon as Marc published his SRFI
(define (continuation-capture receiver) (define (continuation-capture receiver)
(call-with-current-continuation ((call-with-current-continuation
(lambda (k) (lambda (cont)
(receiver (lambda (thunk) (lambda () (receiver cont))))))
(call-with-values
thunk
k))))))
(define (continuation-graft cont thunk) (define (continuation-graft cont thunk)
(cont thunk)) (cont thunk))
@ -678,9 +675,9 @@
; De-released -- not POSIX and not on SGI systems. ; De-released -- not POSIX and not on SGI systems.
; (define-foreign usleep (usleep (integer usecs)) integer) ; (define-foreign usleep (usleep (integer usecs)) integer)
(define (sleep secs) (sleep-until (+ secs (time)))) (define (process-sleep secs) (process-sleep-until (+ secs (time))))
(define (sleep-until when) (define (process-sleep-until when)
(let* ((when (floor when)) ; Painful to do real->int in Scheme. (let* ((when (floor when)) ; Painful to do real->int in Scheme.
(when (if (exact? when) when (inexact->exact when)))) (when (if (exact? when) when (inexact->exact when))))
(let lp () (let lp ()