Mercurial > urweb

comparison src/especialize.sml @ 1676:266814b15dd6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Small fix to previous commit
author Adam Chlipala <adam@chlipala.net>
date Wed, 11 Jan 2012 14:52:31 -0500
parents 13dad713da35
children 3cfc79f92db7
comparison
equal deleted inserted replaced
1675:13dad713da35 1676:266814b15dd6
178 let 178 let
179 fun default () = foldl (fn (e, d) => Int.min (ca depth e, d)) count args 179 fun default () = foldl (fn (e, d) => Int.min (ca depth e, d)) count args
180 in 180 in
181 case #1 arg of 181 case #1 arg of
182 ERel n => 182 ERel n =>
183 if n = depth - 1 then 183 if n = depth - 1 - count then
184 visitArgs (count + 1, args') 184 visitArgs (count + 1, args')
185 else 185 else
186 default () 186 default ()
187 | _ => default () 187 | _ => default ()
188 end 188 end