~ chicken-core (chicken-5) 6e763cda40d44051e342ec84d77f35f1c793e559


commit 6e763cda40d44051e342ec84d77f35f1c793e559
Author:     Evan Hanson <evhan@foldling.org>
AuthorDate: Wed Aug 6 18:22:54 2014 +1200
Commit:     Evan Hanson <evhan@foldling.org>
CommitDate: Wed Aug 6 18:23:08 2014 +1200

    Fix incorrect comment on `canonicalize-list-type`

diff --git a/scrutinizer.scm b/scrutinizer.scm
index 49f72c65..2c858dc1 100644
--- a/scrutinizer.scm
+++ b/scrutinizer.scm
@@ -2173,7 +2173,8 @@
 
 ;;; Canonicalize complex pair/list type for matching with "list-of"
 ;
-; - returns #f if not possibly matchable with "list-of"
+; Returns an equivalent (list ...) form, or the original argument if no
+; canonicalization could be done.
 
 (define (canonicalize-list-type t)
   (cond ((not (pair? t)) t)
Trap