factor: fix some spacing

[factor.git] / extra / io / files / acls / macosx / macosx.factor

diff --git a/extra/io/files/acls/macosx/macosx.factor b/extra/io/files/acls/macosx/macosx.factor
index cc546bdbad330cebde35b04fec7f09d3e4203824..fd516aaf8207709e84c224bf73b55fdca4330b53 100644 (file)
--- a/extra/io/files/acls/macosx/macosx.factor
+++ b/extra/io/files/acls/macosx/macosx.factor
@@ -90,7 +90,7 @@ ERROR: add-permission-failed permission-set permission ;
     f acl_permset_t <ref> [ acl_get_permset acl-error ] keep ;
 
 : filter-strings ( obj strings -- string )
-   [ [ 1 = ] dip f ? ] 2map sift "," join ;
+    [ [ 1 = ] dip f ? ] 2map sift "," join ;
 
 : permset>strings ( acl_permset -- strings )
     acl-perms [ acl_get_perm_np dup acl-error ] with map
@@ -100,7 +100,7 @@ ERROR: add-permission-failed permission-set permission ;
     acl-entry>permset permset>strings ;
 
 : with-new-acl ( quot -- )
-   [ [ new-acl &free-acl ] dip call ] with-destructors ; inline
+    [ [ new-acl &free-acl ] dip call ] with-destructors ; inline
 
 : acls. ( path -- )
     [ acl>text io:write ] acl-each ;