~ 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