This one somehow managed to escape.
Evan
>From 61b1454666e766d4532304b22346572ed70a4adc Mon Sep 17 00:00:00 2001
From: Evan Hanson <ev...@foldling.org>
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
_______________________________________________
Chicken-hackers mailing list
Chicken-hackers@nongnu.org
https://lists.nongnu.org/mailman/listinfo/chicken-hackers
