Clean up

2008-11-25 16:26:17 -06:00 · 2008-11-25 16:26:17 -06:00 · b16b8dae32
parent 6297c4d2e4
commit b16b8dae32
1 changed files with 1 additions and 2 deletions
--- 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