fix word-of-worddef

2004-08-08 06:37:02 +00:00 · 2004-08-08 06:37:02 +00:00 · 9d91a6a5d4
parent a01fa83bf3
commit 9d91a6a5d4
1 changed files with 1 additions and 3 deletions
--- a/library/platform/jvm/words.factor
+++ b/library/platform/jvm/words.factor
@ -87,9 +87,7 @@ USE: vocabularies
    "factor.FactorShuffleDefinition" is ;

 : word-of-worddef ( worddef -- word )
-    interpreter swap
-    [ "factor.FactorInterpreter" ]
-    "factor.FactorWordDefinition" "getWord" jinvoke ;
+    "factor.FactorWordDefinition" "word" jvar-get ;

 : defined? ( obj -- ? )
    dup word? [ worddef ] [ drop f ] ifte ;