basis: ERROR: changes.

[factor.git] / basis / locals / rewrite / point-free / point-free.factor

diff --git a/basis/locals/rewrite/point-free/point-free.factor b/basis/locals/rewrite/point-free/point-free.factor
index 283a3bbd5a112ab602d69575759cfe5c9f530a35..b823cd273550ba3af74e8e1941c409bcd4258103 100644 (file)
--- a/basis/locals/rewrite/point-free/point-free.factor
+++ b/basis/locals/rewrite/point-free/point-free.factor
@@ -10,7 +10,7 @@ IN: locals.rewrite.point-free
 
 : local-index ( args obj -- n )
     2dup '[ unquote _ eq? ] find drop
-    [ 2nip ] [ bad-local ] if* ;
+    [ 2nip ] [ throw-bad-local ] if* ;
 
 : read-local-quot ( args obj -- quot )
     local-index neg [ get-local ] curry ;