No callers yet.
Signed-off-by: Ian Jackson <ian.jack...@eu.citrix.com>
---
tcl/osstestlib.tcl | 7 +++++++
1 file changed, 7 insertions(+)
diff --git a/tcl/osstestlib.tcl b/tcl/osstestlib.tcl
index 1531c87..a0413c4 100644
--- a/tcl/osstestlib.tcl
+++ b/tcl/osstestlib.tcl
@@ -67,3 +67,10 @@ proc lremove {listvar item} {
if {$ix<0} return
set list [lreplace $list $ix $ix]
}
+
+proc lshift {listvar} {
+ upvar 1 $listvar list
+ set head [lindex $list 0]
+ set list [lrange $list 1 end]
+ return $head
+}
--
1.7.10.4
_______________________________________________
Xen-devel mailing list
Xen-devel@lists.xen.org
http://lists.xen.org/xen-devel
