@@ -1,14 +1,6 @@
-(require-library iup-base)
-
-(module iup-glcanvas
-	(glcanvas
-	 call-with-glcanvas glcanvas-is-current?
-	 glcanvas-palette-set! glcanvas-font-set!)
-	(import
-		scheme chicken foreign
-		iup-base)
+;; -*- mode: Scheme; tab-width: 2; -*- ;;
 
 ;; {{{ Data types
 
 (foreign-declare
 	"#include <iup.h>\n"
@@ -58,7 +50,5 @@
 ;; {{{ Library setup
 
 (foreign-code "IupGLCanvasOpen();")
 
 ;; }}}
-
-)