1 files changed, 10 insertions, 0 deletions
diff --git a/engines/director/lingo/lingo-funcs.cpp b/engines/director/lingo/lingo-funcs.cpp
index 4557ace065..8664f74a6b 100644
--- a/engines/director/lingo/lingo-funcs.cpp
+++ b/engines/director/lingo/lingo-funcs.cpp
@@ -179,6 +179,16 @@ Datum Lingo::pop(void) {
 	return ret;
 }
 
+void Lingo::func_xpop() {
+	g_lingo->pop();
+}
+
+void Lingo::func_printtop(void) {
+	Datum d = g_lingo->pop();
+
+	warning("%d\n", d.val);
+}
+
 void Lingo::func_constpush() {
 	Datum d;
 	d.val = ((Symbol *)*g_lingo->_pc++)->u.val;