diff src/especialize.sml @ 1676:266814b15dd6

Small fix to previous commit
author Adam Chlipala <adam@chlipala.net>
date Wed, 11 Jan 2012 14:52:31 -0500
parents 13dad713da35
children 3cfc79f92db7
line wrap: on
line diff
--- a/src/especialize.sml	Wed Jan 11 13:53:35 2012 -0500
+++ b/src/especialize.sml	Wed Jan 11 14:52:31 2012 -0500
@@ -180,7 +180,7 @@
                                         in
                                             case #1 arg of
                                                 ERel n =>
-                                                if n = depth - 1 then
+                                                if n = depth - 1 - count then
                                                     visitArgs (count + 1, args')
                                                 else
                                                     default ()