lists: first pass at some cleanup.

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

diff --git a/basis/lists/lists.factor b/basis/lists/lists.factor
index 0efb18286487658c5258d8271faa52d1a8adaca2..29181a9da43b3770ea5333c5139b8392376f2a01 100644 (file)
--- a/basis/lists/lists.factor
+++ b/basis/lists/lists.factor
@@ -42,7 +42,7 @@ M: object nil? drop f ;
 
 : cadr ( list -- elt ) cdr car ; inline
 
-: 2car ( list -- car caar ) [ car ] [ cadr ] bi ; inline
+: 2car ( list -- car cadr ) [ car ] [ cadr ] bi ; inline
 
 : 3car ( list -- car cadr caddr ) [ car ] [ cadr ] [ cdr cadr ] tri ; inline