factor: fix some spacing

[factor.git] / core / graphs / graphs.factor

diff --git a/core/graphs/graphs.factor b/core/graphs/graphs.factor
index de64c6b6063cf7e207d63ae8bc8d6f1c08b2f27c..3b305a34a93f8c45f20416579c59a1011c5611a8 100644 (file)
--- a/core/graphs/graphs.factor
+++ b/core/graphs/graphs.factor
@@ -19,12 +19,12 @@ PRIVATE>
 <PRIVATE
 
  : (closure) ( vertex set quot: ( vertex -- edges ) -- )
-     2over ?adjoin [
-         [ dip ] keep [ (closure) ] 2curry each
-     ] [ 3drop ] if ; inline recursive
+    2over ?adjoin [
+        [ dip ] keep [ (closure) ] 2curry each
+    ] [ 3drop ] if ; inline recursive
 
  : new-empty-set-like ( exemplar -- set )
-     f swap set-like clone ; inline
+    f swap set-like clone ; inline
 
 PRIVATE>