(require-library canvas-draw-base) (module canvas-draw-emf (context:emf) (import scheme chicken foreign canvas-draw-base) ;; {{{ Data types (foreign-declare "#include \n" "#include \n") (include "canvas-draw-types.scm") ;; }}} ;; {{{ Context types (define context:emf (foreign-value "CD_EMF" nonnull-context)) ;; }}} )