Attached the patch by J. Altfas.
cheers, felix
>From fb7bcd5e45bdce3c37aa875361ffa6c867f90ad4 Mon Sep 17 00:00:00 2001 From: felix <[email protected]> Date: Fri, 15 Feb 2013 11:24:15 +0100 Subject: [PATCH] fixed types.db entry for join - contributed J. Altfas Signed-off-by: felix <[email protected]> --- types.db | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) diff --git a/types.db b/types.db index bad60cb..1d035cf 100644 --- a/types.db +++ b/types.db @@ -1200,7 +1200,7 @@ (flip (#(procedure #:clean #:enforce) flip ((procedure (* *) . *)) (procedure (* *) . *))) (identity (forall (a) (#(procedure #:pure) identity (a) a))) (intersperse (#(procedure #:clean #:enforce) intersperse (list *) list)) -(join (#(procedure #:clean #:enforce) join (list list) list)) +(join (#(procedure #:clean #:enforce) join ((list-of list) #!optional list) list)) (list->queue (#(procedure #:clean #:enforce) list->queue (list) (struct queue))) (list-of? (#(procedure #:clean #:enforce) list-of? ((procedure (*) *)) (procedure (list) boolean))) (make-queue (#(procedure #:pure) make-queue () (struct queue))) -- 1.7.0.4
_______________________________________________ Chicken-hackers mailing list [email protected] https://lists.nongnu.org/mailman/listinfo/chicken-hackers
