From 9d91a6a5d40ea598fed2b3889f564c6c718870cb Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Sun, 8 Aug 2004 06:37:02 +0000 Subject: [PATCH] fix word-of-worddef --- library/platform/jvm/words.factor | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/library/platform/jvm/words.factor b/library/platform/jvm/words.factor index cb884bd04f..f8a8485459 100644 --- 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 ;