effects.parser: Fix word -> current-word for definition errors.

2013-04-14 13:32:15 -07:00 · 2013-04-14 13:32:15 -07:00 · bd3762502f
parent 6e2291886d
commit bd3762502f
1 changed files with 1 additions and 1 deletions
--- a/core/effects/parser/parser.factor
+++ b/core/effects/parser/parser.factor
@ -57,7 +57,7 @@ SYMBOL: in-definition
 ERROR: can't-nest-definitions word ;

 : check-in-definition ( -- )
-    in-definition get [ word can't-nest-definitions ] when ;
+    in-definition get [ current-word can't-nest-definitions ] when ;

 : with-definition ( quot -- )
    [ check-in-definition t in-definition ] dip with-variable ; inline