basis: removing unnecessary method stack effects.

[factor.git] / basis / ui / commands / commands.factor

diff --git a/basis/ui/commands/commands.factor b/basis/ui/commands/commands.factor
index 3497f677c08fda3c191afa59766eb29c0ee2ce2e..e2f00f0ecc8fa3aa21984e80af539e2dd43cbc00 100644 (file)
--- a/basis/ui/commands/commands.factor
+++ b/basis/ui/commands/commands.factor
@@ -82,13 +82,13 @@ TR: convert-command-name "-" " " ;
     swap pick commands set-at
     update-gestures ;
 
-M: word command-name ( word -- str )
+M: word command-name
     name>>
     "com-" ?head drop "." ?tail drop
     dup first Letter? [ rest ] unless
     (command-name) ;
 
-M: word command-description ( word -- str )
+M: word command-description
     +description+ word-prop ;
 
 : default-flags ( -- assoc )
@@ -102,9 +102,9 @@ M: word command-description ( word -- str )
     [ 1quotation ] [ +nullary+ word-prop ] bi
     [ nip ] [ curry ] if ;
 
-M: word invoke-command ( target command -- )
+M: word invoke-command
     command-quot call( -- ) ;
 
 M: word command-word ;
 
-M: f invoke-command ( target command -- ) 2drop ;
+M: f invoke-command 2drop ;