From 77a30b78c595a3334e8f5e35b80aad79eb681871 Mon Sep 17 00:00:00 2001 From: Mart Lubbers Date: Mon, 18 Mar 2019 14:25:44 +0100 Subject: [PATCH] cleanup --- scc.icl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/scc.icl b/scc.icl index 7803f8b..b25ebfb 100644 --- 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 -- 2.20.1