>From 61b1454666e766d4532304b22346572ed70a4adc Mon Sep 17 00:00:00 2001
From: Evan Hanson <address@hidden>
Date: Tue, 13 Mar 2018 06:42:41 +1300
Subject: [PATCH] Move `sleep' to "chicken.base"

---
 chicken.base.import.scm |  1 +
 library.scm             | 13 ++++++++-----
 2 files changed, 9 insertions(+), 5 deletions(-)

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:
-- 
2.11.0