[Chicken-hackers] [PATCH] fix types.db entry for join

[Felix]

Attached the patch by J. Altfas.


cheers,
felix

>From fb7bcd5e45bdce3c37aa875361ffa6c867f90ad4 Mon Sep 17 00:00:00 2001
From: felix <address@hidden>
Date: Fri, 15 Feb 2013 11:24:15 +0100
Subject: [PATCH] fixed types.db entry for join - contributed J. Altfas

Signed-off-by: felix <address@hidden>
---
 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