~ chicken-core (chicken-5) 96292d22632f455b34e9a12e61c9b282adbb1566

commit 96292d22632f455b34e9a12e61c9b282adbb1566
Author:     Evan Hanson <evhan@foldling.org>
AuthorDate: Tue Mar 13 06:42:41 2018 +1300
Commit:     Peter Bex <peter@more-magic.net>
CommitDate: Sun Mar 18 12:37:50 2018 +0100

    Move `sleep' to "chicken.base"
    
    Signed-off-by: Peter Bex <peter@more-magic.net>

diff --git a/chicken.base.import.scm b/chicken.base.import.scm
index 19365c72..24f57018 100644
--- a/chicken.base.import.scm
+++ b/chicken.base.import.scm
@@ -98,6 +98,7 @@
    (ratnum? . chicken.base#ratnum?)
    (setter . chicken.base#setter)
    (signum . chicken.base#signum)
+   (sleep . chicken.base#sleep)
    (string->uninterned-symbol . chicken.base#string->uninterned-symbol)
    (sub1 . chicken.base#sub1)
    (subvector . chicken.base#subvector)
diff --git a/library.scm b/library.scm
index f8dd3b26..e2be1e22 100644
--- a/library.scm
+++ b/library.scm
@@ -585,7 +585,7 @@ EOF
 
    port? port-closed? input-port-open? output-port-open? flush-output
    get-output-string open-input-string open-output-string
-   get-call-chain print print* add1 sub1 call/cc
+   get-call-chain print print* add1 sub1 sleep call/cc
    current-error-port error void gensym print-call-chain
    make-promise promise? char-name enable-warnings
    equal=? finite? foldl foldr getter-with-setter make-parameter
@@ -649,6 +649,8 @@ EOF
 
 (define (void . _) (##core#undefined))
 
+(define sleep)
+
 (define call/cc)
 (define char-name)
 (define enable-warnings)
@@ -5726,10 +5728,11 @@ EOF
 (define (chicken.base#sleep-hook n) ; modified by scheduler.scm
   (##core#inline "C_i_process_sleep" n))
 
-(define (sleep n)
-  (##sys#check-fixnum n 'sleep)
-  (chicken.base#sleep-hook n)
-  (##core#undefined))
+(set! chicken.base#sleep
+  (lambda (n)
+    (##sys#check-fixnum n 'sleep)
+    (chicken.base#sleep-hook n)
+    (##core#undefined)))
 
 
 ;;; Interrupt-handling: