change ERROR: words from throw-foo back to foo.

[factor.git] / extra / smalltalk / compiler / lexenv / lexenv.factor

diff --git a/extra/smalltalk/compiler/lexenv/lexenv.factor b/extra/smalltalk/compiler/lexenv/lexenv.factor
index 42ffccb400ad01f3d27d5d185b794d3d3c8dfb8b..3a7d29e6dac5728e6b25e7d7546853b000ab813d 100644 (file)
--- a/extra/smalltalk/compiler/lexenv/lexenv.factor
+++ b/extra/smalltalk/compiler/lexenv/lexenv.factor
@@ -47,7 +47,7 @@ M: bad-identifier summary drop "Unknown identifier" ;
         [ local-reader ]
         [ ivar-reader ]
         [ drop class-name ]
-        [ drop throw-bad-identifier ]
+        [ drop bad-identifier ]
     } 2|| ;
 
 : local-writer ( name lexenv -- local )
@@ -63,5 +63,5 @@ M: bad-identifier summary drop "Unknown identifier" ;
     {
         [ local-writer ]
         [ ivar-writer ]
-        [ drop throw-bad-identifier ]
+        [ drop bad-identifier ]
     } 2|| ;