basis: ERROR: changes.

[factor.git] / basis / deques / deques.factor

diff --git a/basis/deques/deques.factor b/basis/deques/deques.factor
index 8ecde83a14a2081c81b2a2d657353e0c826849d7..79fc81c5b568786d7488d3811a2c0cbbcb272148 100644 (file)
--- a/basis/deques/deques.factor
+++ b/basis/deques/deques.factor
@@ -18,13 +18,13 @@ GENERIC: deque-empty? ( deque -- ? )
 ERROR: empty-deque ;
 
 : peek-front ( deque -- obj )
-    peek-front* [ drop empty-deque ] unless ;
+    peek-front* [ drop throw-empty-deque ] unless ;
 
 : ?peek-front ( deque -- obj/f )
     peek-front* [ drop f ] unless ;
 
 : peek-back ( deque -- obj )
-    peek-back* [ drop empty-deque ] unless ;
+    peek-back* [ drop throw-empty-deque ] unless ;
 
 : ?peek-back ( deque -- obj/f )
     peek-back* [ drop f ] unless ;