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

[factor.git] / basis / unrolled-lists / unrolled-lists.factor

diff --git a/basis/unrolled-lists/unrolled-lists.factor b/basis/unrolled-lists/unrolled-lists.factor
index 000782743f2f6e15a983c7bdeeeccbbd55275070..bfb8e07e4f3b525bd7473dd054716a0492a66d65 100644 (file)
--- a/basis/unrolled-lists/unrolled-lists.factor
+++ b/basis/unrolled-lists/unrolled-lists.factor
@@ -85,7 +85,7 @@ M: unrolled-list peek-front*
     drop ; inline
 
 M: unrolled-list pop-front*
-    dup front>> [ throw-empty-unrolled-list ] unless*
+    dup front>> [ empty-unrolled-list ] unless*
     over front-pos>> unroll-factor 1 - eq?
     [ pop-front/new ] [ pop-front/existing ] if ;
 
@@ -131,7 +131,7 @@ M: unrolled-list peek-back*
     drop ; inline
 
 M: unrolled-list pop-back*
-    dup back>> [ throw-empty-unrolled-list ] unless*
+    dup back>> [ empty-unrolled-list ] unless*
     over back-pos>> 1 eq?
     [ pop-back/new ] [ pop-back/existing ] if ;