]> gitweb.factorcode.org Git - factor.git/blobdiff - basis/unix/groups/groups.factor
core, basis, extra: Remove DOS line endings from files.
[factor.git] / basis / unix / groups / groups.factor
index cfd37b0e566aeab9cd4253cdaf3ec40d1d1ea59d..e51ccc40c47632b829f2de706279cf803a162be2 100644 (file)
@@ -79,15 +79,15 @@ ERROR: no-group string ;
     ] if* ;
 
 PRIVATE>
-    
+
 GENERIC: user-groups ( string/id -- seq )
 
 M: string user-groups ( string -- seq )
-    (user-groups) ; 
+    (user-groups) ;
 
 M: integer user-groups ( id -- seq )
     user-name (user-groups) ;
-    
+
 : all-groups ( -- seq )
     [ unix.ffi:getgrent dup ] [ group-struct>group ] produce nip
     endgrent ;
@@ -139,14 +139,14 @@ GENERIC: set-effective-group ( obj -- )
     [ unix.ffi:setegid ] unix-system-call drop ; inline
 
 PRIVATE>
-    
+
 M: integer set-real-group ( id -- )
     (set-real-group) ;
 
 M: string set-real-group ( string -- )
     ?group-id (set-real-group) ;
 
-M: integer set-effective-group ( id -- )    
+M: integer set-effective-group ( id -- )
     (set-effective-group) ;
 
 M: string set-effective-group ( string -- )