From: Mart Lubbers <mart@martlubbers.net>
Date: Mon, 18 Mar 2019 13:25:44 +0000 (+0100)
Subject: cleanup
X-Git-Url: https://git.martlubbers.net/?a=commitdiff_plain;h=77a30b78c595a3334e8f5e35b80aad79eb681871;p=minfp.git

cleanup
---

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