tweak loc count to match count_lines script

2025-08-02 05:01:53 -07:00 · 2007-04-18 22:47:25 +00:00
parent f3f83af393
commit cf2c9f7328
2 changed files with 7 additions and 6 deletions
--- a/StackSet.hs
+++ b/StackSet.hs
@@ -239,12 +239,12 @@ swap a b xs

 swap _ _ xs = xs -- do nothing

-{-
+--
 -- cycling:
-promote w = w { stacks = M.adjust next (current w) (stacks w) }
-   where next [] = []
-         next xs = last xs : init xs
-}
+-- promote w = w { stacks = M.adjust next (current w) (stacks w) }
+--    where next [] = []
+--          next xs = last xs : init xs
+--

 -- |
 elemAfter :: Eq a => a -> [a] -> Maybe a