~ chicken-core (chicken-5) 6ef0839ae2da648e32d28b6b903073f47473c76c

commit 6ef0839ae2da648e32d28b6b903073f47473c76c
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Thu May 26 09:27:56 2011 -0400
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Thu May 26 09:27:56 2011 -0400

    types.db conflict resolution

diff --git a/types.db b/types.db
index 26aca684..fb3cc44f 100644
--- a/types.db
+++ b/types.db
@@ -32,7 +32,7 @@
 ; - in templates, "#(INDEX)" refers to the INDEXth argument (starting from 1)
 ; - in templates "(let ((#:tmp X)) ...)" binds X to a temporary variable, you can not
 ;   refer to this variable inside the template
-; - the entry "(predicate NAME TYPE)" specifies a predicate over the given type
+; - the entry "(#%predicate NAME TYPE)" specifies a predicate over the given type
 ; - a type of the form "(procedure! ...)" is internally treated like "(procedure ..."
 ;   but declares the procedure as "argument-type enforcing"
 
@@ -1041,6 +1041,7 @@
 
 (irregex (procedure irregex (#!rest) *))
 ;irregex-apply-match
+
 (irregex-dfa (procedure! irregex-dfa ((struct regexp)) *)
 	     (((struct regexp)) (##sys#slot #(1) '1)))