basis: removing unnecessary method stack effects.

[factor.git] / basis / unix / groups / groups.factor

diff --git a/basis/unix/groups/groups.factor b/basis/unix/groups/groups.factor
index 92cf9f258fbf115bddf49cc8c1b1d876eecd1418..be37a97c10645b4465fa6b9b21a02d6e8c2c2ca9 100644 (file)
--- a/basis/unix/groups/groups.factor
+++ b/basis/unix/groups/groups.factor
@@ -24,12 +24,12 @@ GENERIC: group-struct ( obj -- group/f )
 : check-group-struct ( group-struct ptr -- group-struct/f )
     void* deref [ drop f ] unless ;
 
-M: integer group-struct ( id -- group/f )
+M: integer group-struct
     (group-struct)
     [ [ unix.ffi:getgrgid_r ] unix-system-call drop ] keep
     check-group-struct ;
 
-M: string group-struct ( string -- group/f )
+M: string group-struct
     (group-struct)
     [ [ unix.ffi:getgrnam_r ] unix-system-call drop ] keep
     check-group-struct ;
@@ -79,10 +79,10 @@ PRIVATE>
 
 GENERIC: user-groups ( string/id -- seq )
 
-M: string user-groups ( string -- seq )
+M: string user-groups
     (user-groups) ;
 
-M: integer user-groups ( id -- seq )
+M: integer user-groups
     user-name (user-groups) ;
 
 : all-groups ( -- seq )
@@ -137,14 +137,14 @@ GENERIC: set-effective-group ( obj -- )
 
 PRIVATE>
 
-M: integer set-real-group ( id -- )
+M: integer set-real-group
     (set-real-group) ;
 
-M: string set-real-group ( string -- )
+M: string set-real-group
     ?group-id (set-real-group) ;
 
-M: integer set-effective-group ( id -- )
+M: integer set-effective-group
     (set-effective-group) ;
 
-M: string set-effective-group ( string -- )
+M: string set-effective-group
     ?group-id (set-effective-group) ;