removed occurences of peek in new tables

diff --git a/basis/inverse/vectors/vectors.factor b/basis/inverse/vectors/vectors.factor
index d2cca00af009964f45056841ea71f433681e7426..4672aed3ec53c786ff93b7597eafe3ad2b27bcb0 100644 (file)
--- a/basis/inverse/vectors/vectors.factor
+++ b/basis/inverse/vectors/vectors.factor
@@ -9,7 +9,7 @@ IN: inverse.vectors
 
 \ 1vector [ 1 undo-nvector ] define-inverse
 
-\ peek [ 1vector ] define-inverse
+\ last [ 1vector ] define-inverse
 
 ! if is too general to undo, but its derivatives aren't
 

diff --git a/basis/ui/gadgets/tables/tables.factor b/basis/ui/gadgets/tables/tables.factor
index 2ec0ca4c5955d9d7869c5cf6f9e01dbab864a51f..fdeb7e05f93c7d0ef6bfe7fed6c8a030d0c4ad3e 100644 (file)
--- a/basis/ui/gadgets/tables/tables.factor
+++ b/basis/ui/gadgets/tables/tables.factor
@@ -49,7 +49,7 @@ mouse-index
 focused?
 multiple-selection? ;
 
-: in>out ( vector -- val/f ) [ f ] [ peek ] if-empty ;
+: in>out ( vector -- val/f ) [ f ] [ last ] if-empty ;
 : out>in ( val/f -- vector ) [ 1vector ] [ V{ } clone ] if* ;
 IN: accessors
 SLOT: selected-value
@@ -264,7 +264,7 @@ PRIVATE>
 : selected-rows ( table -- {value} )
     [ (selected-rows) ] [ renderer>> ] bi [ row-value ] curry map ;
 
-: multiple>single ( values -- value/f ? ) [ f f ] [ peek t ] if-empty ;
+: multiple>single ( values -- value/f ? ) [ f f ] [ last t ] if-empty ;
 : (selected-row) ( table -- value/f ? ) (selected-rows) multiple>single ;
 : selected-row ( table -- value/f ? ) selected-rows multiple>single ;
 
@@ -306,7 +306,7 @@ PRIVATE>
 M: table model-changed
     nip dup update-selected-indices [ V{ } clone ] unless* {
         [ >>selected-indices f >>mouse-index drop ]
-        [ [ f ] [ peek ] if-empty show-row-summary ]
+        [ [ f ] [ last ] if-empty show-row-summary ]
         [ drop update-selected-values ]
         [ drop relayout ]
     } 2cleave ;