steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

fix word-of-worddef

cvs
Slava Pestov 2004-08-08 06:37:02 +00:00
parent a01fa83bf3
commit 9d91a6a5d4
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
library/platform/jvm/words.factor
View File

@ -87,9 +87,7 @@ USE: vocabularies
"factor.FactorShuffleDefinition" is ; "factor.FactorShuffleDefinition" is ;
: word-of-worddef ( worddef -- word ) : word-of-worddef ( worddef -- word )
interpreter swap "factor.FactorWordDefinition" "word" jvar-get ;
[ "factor.FactorInterpreter" ]
"factor.FactorWordDefinition" "getWord" jinvoke ;
: defined? ( obj -- ? ) : defined? ( obj -- ? )
dup word? [ worddef ] [ drop f ] ifte ; dup word? [ worddef ] [ drop f ] ifte ;