From b16b8dae32a1d4b8c5c46bb94bbf7e0b231ee8d8 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Tue, 25 Nov 2008 16:26:17 -0600
Subject: [PATCH] Clean up
---
basis/ui/gadgets/canvas/canvas.factor | 3 +--
1 file changed, 1 insertion(+), 2 deletions(-)
diff --git a/basis/ui/gadgets/canvas/canvas.factor b/basis/ui/gadgets/canvas/canvas.factor
index 4ff7519a85..0028b9b165 100644
--- a/basis/ui/gadgets/canvas/canvas.factor
+++ b/basis/ui/gadgets/canvas/canvas.factor
@@ -12,8 +12,7 @@ TUPLE: canvas < gadget dlist ;
: delete-canvas-dlist ( canvas -- )
[ find-gl-context ]
- [ dlist>> [ delete-dlist ] when* ]
- [ f >>dlist drop ] tri ;
+ [ [ [ delete-dlist ] when* f ] change-dlist drop ] bi ;
: make-canvas-dlist ( canvas quot -- dlist )
[ drop ] [ GL_COMPILE swap make-dlist ] 2bi