factor: fix some spacing

[factor.git] / extra / assocs / extras / extras.factor

diff --git a/extra/assocs/extras/extras.factor b/extra/assocs/extras/extras.factor
index ddbe6a4de1f9289f9c0dd81b673a54b91dd0e07b..434008783744f58f87f38559bf27eb9c6bec8811 100644 (file)
--- a/extra/assocs/extras/extras.factor
+++ b/extra/assocs/extras/extras.factor
@@ -79,8 +79,8 @@ IN: assocs.extras
 ! Modifies assoc1
 : assoc-merge! ( assoc1 assoc2 quot: ( value1 value2 -- new-value ) -- assoc1' )
     [| key2 val2 quot | val2 key2 pick
-     at* [ swap quot call ] [ drop ] if
-     key2 pick set-at ] curry assoc-each ; inline
+    at* [ swap quot call ] [ drop ] if
+    key2 pick set-at ] curry assoc-each ; inline
 
 ! Same as above, non-destructive
 : assoc-merge ( assoc1 assoc2 quot: ( value1 value2 -- new-value ) -- new-assoc )