From 32079bb52b55c79277e1e2bb226712a15d99b0b6 Mon Sep 17 00:00:00 2001
From: slava <slava@factorcode.org>
Date: Thu, 26 Oct 2006 04:07:46 +0000
Subject: [PATCH] tetris-window no longer leaves gadget on stack

---
 contrib/tetris/tetris-gadget.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/contrib/tetris/tetris-gadget.factor b/contrib/tetris/tetris-gadget.factor
index b1b6a9b762..ee6ea67e90 100644
--- a/contrib/tetris/tetris-gadget.factor
+++ b/contrib/tetris/tetris-gadget.factor
@@ -46,5 +46,5 @@ M: tetris-gadget graft* ( gadget -- )
 M: tetris-gadget ungraft* ( gadget -- )
     t swap set-tetris-gadget-quit? ;
 
-: tetris-window ( -- ) <default-tetris> <tetris-gadget> dup "Tetris" open-titled-window ;
+: tetris-window ( -- ) <default-tetris> <tetris-gadget> "Tetris" open-titled-window ;