kernel: remove ?execute, not used much, and a little bit confusing.

basis/opengl/opengl.factor

@@ -5,7 +5,7 @@
 USING: alien alien.c-types alien.data assocs colors
 combinators.smart continuations fry init kernel locals macros
 math namespaces opengl.gl sequences sequences.generalizations
-specialized-arrays ;
+specialized-arrays words ;
 FROM: alien.c-types => float ;
 SPECIALIZED-ARRAY: float
 SPECIALIZED-ARRAY: uint
@@ -53,7 +53,7 @@ TUPLE: gl-error-tuple function code string ;
     over glEnableClientState dip glDisableClientState ; inline
 
 : words>values ( word/value-seq -- value-seq )
-    [ ?execute ] map ;
+    [ dup word? [ execute( -- x ) ] when ] map ;
 
 : (all-enabled) ( seq quot -- )
     [ dup [ glEnable ] each ] dip

basis/unicode/breaks/breaks.factor

@@ -73,7 +73,8 @@ SYMBOL: table
 : finish-table ( -- table )
     table get [ [ 1 = ] map ] map ;
 
-: eval-seq ( seq -- seq ) [ ?execute ] map ;
+: eval-seq ( seq -- seq )
+    [ dup word? [ execute( -- x ) ] when ] map ;
 
 : (set-table) ( class1 class2 val -- )
     [ table get nth ] dip '[ _ or ] change-nth ;

core/kernel/kernel.factor

@@ -21,10 +21,6 @@ GENERIC: call ( callable -- )
 
 GENERIC: execute ( word -- )
 
-GENERIC: ?execute ( word -- value )
-
-M: object ?execute ;
-
 DEFER: if
 
 : ? ( ? true false -- true/false )

core/words/words.factor

@@ -24,8 +24,6 @@ SYMBOL: last-word-symbol
 
 M: word execute (execute) ;
 
-M: word ?execute execute( -- value ) ; inline
-
 M: word <=>
     [ [ name>> ] [ vocabulary>> ] bi 2array ] compare ;