Lines Matching refs:peek
68 set pos [$mystackloc peek]
70 set children [lreverse [$mystackast peek [$mystackast size]]] ; # SaveToMark
73 return [$mystackast peek]
123 method ast {} { return [$mystackast peek] }
211 set pos [$mystackloc peek]
319 set at [$mystackloc peek]
339 set pos [$mystackloc peek]
349 set mark [$mystackmark peek];# Old size of stack before current nt pushed more.
352 set pos [$mystackloc peek]
358 # peek 1 => single element comes back
359 set mysvalue [list [$mystackast peek]] ; # SaveToMark
361 # peek n > 1 => list of elements comes back
362 set mysvalue [lreverse [$mystackast peek $newa]] ; # SaveToMark