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

[factor.git] / basis / vlists / vlists.factor

diff --git a/basis/vlists/vlists.factor b/basis/vlists/vlists.factor
index 97e9b29cccfbb1f54dd626a45f3458d76ee60a13..79870b483f35561109d46d7061123456f1920f3e 100644 (file)
--- a/basis/vlists/vlists.factor
+++ b/basis/vlists/vlists.factor
@@ -33,7 +33,7 @@ M: vlist ppush
 ERROR: empty-vlist-error ;
 
 M: vlist ppop
-    [ throw-empty-vlist-error ]
+    [ empty-vlist-error ]
     [ [ length>> 1 - ] [ vector>> ] bi vlist boa ] if-empty ;
 
 M: vlist clone