~ chicken-core (chicken-5) 6574bed4df597413b0693cb034d1886d201e6203
commit 6574bed4df597413b0693cb034d1886d201e6203
Author: felix <felix@call-with-current-continuation.org>
AuthorDate: Sat Aug 20 03:29:22 2011 +0200
Commit: felix <felix@call-with-current-continuation.org>
CommitDate: Sat Aug 20 03:29:22 2011 +0200
deprecated none?, always?, never?; removed incorrect specialization for queue->list
diff --git a/data-structures.import.scm b/data-structures.import.scm
index fc2f3760..245c7c4d 100644
--- a/data-structures.import.scm
+++ b/data-structures.import.scm
@@ -29,7 +29,7 @@
'(->string
alist-ref
alist-update!
- always?
+ always? ; DEPRECATED
any?
atom?
binary-search
@@ -53,8 +53,8 @@
make-queue
merge
merge!
- never?
- none?
+ never? ; DEPRECATED
+ none? ; DEPRECATED
o
queue->list
queue-add!
diff --git a/data-structures.scm b/data-structures.scm
index 4cc30a89..7da36987 100644
--- a/data-structures.scm
+++ b/data-structures.scm
@@ -114,11 +114,9 @@ EOF
(define (any? x) #t)
-(define (none? x) #f)
-
-(define (always? . _) #t)
-
-(define (never? . _) #f)
+(define (none? x) #f) ; DEPRECATED
+(define (always? . _) #t) ; DEPRECATED
+(define (never? . _) #f) ; DEPRECATED
;;; List operators:
diff --git a/manual/Unit data-structures b/manual/Unit data-structures
index 0151d122..6f3e8c1b 100644
--- a/manual/Unit data-structures
+++ b/manual/Unit data-structures
@@ -454,27 +454,6 @@ is a case-insensitive version of {{substring-index}}.
Ignores its argument and always returns {{#t}}. This is actually useful sometimes.
-==== none?
-
-<procedure>(none? X)</procedure>
-
-Ignores its argument and always returns {{#f}}. This is actually useful sometimes.
-
-
-==== always?
-
-<procedure>(always? X)</procedure>
-
-Ignores its arguments and always returns {{#t}}. This is actually useful sometimes.
-
-
-==== never?
-
-<procedure>(never? X)</procedure>
-
-Ignores its arguments and always returns {{#f}}. This is actually useful sometimes.
-
-
==== constantly
<procedure>(constantly X ...)</procedure>
diff --git a/scrutinizer.scm b/scrutinizer.scm
index 02c40e65..10797db0 100755
--- a/scrutinizer.scm
+++ b/scrutinizer.scm
@@ -59,6 +59,7 @@
; | (procedure [NAME] (VAL1 ... [#!optional VALOPT1 ...] [#!rest [VAL | values]]) . RESULTS)
; | BASIC
; | deprecated
+; | (deprecated NAME)
; BASIC = * | string | symbol | char | number | boolean | list | pair |
; procedure | vector | null | eof | undefined | port |
; blob | noreturn | pointer | locative | fixnum | float |
diff --git a/types.db b/types.db
index 86acb838..24d44fb0 100644
--- a/types.db
+++ b/types.db
@@ -916,7 +916,7 @@
(alist-ref (procedure! alist-ref (* list #!optional (procedure (* *) *) *) *))
(alist-update! (procedure! alist-update! (* * list #!optional (procedure (* *) *)) *))
-(always? (procedure always? (#!rest) boolean))
+(always? deprecated)
(any? (procedure any? (*) boolean)
((*) (let ((#(tmp) #(1))) '#t)))
@@ -946,16 +946,10 @@
(make-queue (procedure make-queue () (struct queue)))
(merge (procedure! merge (list list (procedure (* *) *)) list))
(merge! (procedure! merge! (list list (procedure (* *) *)) list))
-(never? (procedure never? (#!rest) boolean))
-
-(none? (procedure none? (*) boolean)
- ((*) (let ((#(tmp) #(1))) '#f)))
-
+(never? deprecated)
+(none? deprecated)
(o (procedure! o (#!rest (procedure (*) *)) (procedure (*) *)))
-
-(queue->list (procedure! queue->list ((struct queue)) list)
- (((struct queue)) (##sys#slot #(1) '1)))
-
+(queue->list (procedure! queue->list ((struct queue)) list))
(queue-add! (procedure! queue-add! ((struct queue) *) undefined))
(queue-empty? (procedure! queue-empty? ((struct queue)) boolean)
@@ -1172,7 +1166,8 @@
((locative locative fixnum fixnum fixnum)
(##core#inline "C_copy_ptr_memory" #(2) #(1) #(3) #(5) #(4))))
-(mutate-procedure (procedure! mutate-procedure (procedure procedure) procedure))
+(mutate-procedure (deprecated mutate-procedure!))
+(mutate-procedure! (procedure! mutate-procedure! (procedure procedure) procedure))
(null-pointer deprecated)
(null-pointer? deprecated)
Trap