Mercurial > urweb

comparison lib/ur/list.ur @ 843:9f0ea203a1ca

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
List.all; fix ANDALSO/ORELSE parsing precedence
author Adam Chlipala <adamc@hcoop.net>
date Sun, 07 Jun 2009 14:15:22 -0400
parents e4a02e4fa35c
children 74a1e3bdf430
comparison
equal deleted inserted replaced
842:d1b6acaec265 843:9f0ea203a1ca
159 acc <- f x acc; 159 acc <- f x acc;
160 foldlM' acc ls 160 foldlM' acc ls
161 in 161 in
162 foldlM' 162 foldlM'
163 end 163 end
164
165 fun all [m] f =
166 let
167 fun all' ls =
168 case ls of
169 [] => True
170 | x :: ls => f x && all' ls
171 in
172 all'
173 end