db4
Slava Pestov 2008-11-25 16:26:17 -06:00
parent 6297c4d2e4
commit b16b8dae32
1 changed files with 1 additions and 2 deletions

View File

@ -12,8 +12,7 @@ TUPLE: canvas < gadget dlist ;
: delete-canvas-dlist ( canvas -- ) : delete-canvas-dlist ( canvas -- )
[ find-gl-context ] [ find-gl-context ]
[ dlist>> [ delete-dlist ] when* ] [ [ [ delete-dlist ] when* f ] change-dlist drop ] bi ;
[ f >>dlist drop ] tri ;
: make-canvas-dlist ( canvas quot -- dlist ) : make-canvas-dlist ( canvas quot -- dlist )
[ drop ] [ GL_COMPILE swap make-dlist ] 2bi [ drop ] [ GL_COMPILE swap make-dlist ] 2bi