~ chicken-core (chicken-5) c48a2fb65e0d19992439a231747230e544b88405

commit c48a2fb65e0d19992439a231747230e544b88405
Author:     Peter Bex <peter@more-magic.net>
AuthorDate: Mon May 25 15:08:23 2015 +0200
Commit:     Peter Bex <peter@more-magic.net>
CommitDate: Mon May 25 15:08:23 2015 +0200

    Silence "always true" warning for *allow-utf8-mode?*

diff --git a/irregex.scm b/irregex.scm
index afeb11d0..9d575e8c 100644
--- a/irregex.scm
+++ b/irregex.scm
@@ -89,6 +89,10 @@
 ;; so find-tail is unused (it's only used in the "find" definition)
 (declare (unused find-tail))
 
+;; This is to silence an "always true" warning that we can't fix
+;; because we don't want to needlessly change irregex-core.
+(declare (type (*allow-utf8-mode?* boolean)))
+
 (define-syntax build-cache
   (er-macro-transformer 
    (lambda (x r c)