cleanup

diff --git a/scc.icl b/scc.icl
index 7803f8b..b25ebfb 100644 (file)
--- a/scc.icl
+++ b/scc.icl
@@ -22,8 +22,8 @@ where
                        # (scc, [sl:stack]) = span ((<>) v) s.stack
                        # scc = scc ++ [sl]
                        = { s & sccs = [scc:s.sccs]
-                         , stack= stack
-                         , map  = foldr (alter \(Just s)->Just {s & onstack=False}) s.map scc
+                         , stack    = stack
+                         , map      = foldr (alter \(Just s)->Just {s & onstack=False}) s.map scc
                          }
                = s
        where