(module dracula-language-interface (lib "a-unit.ss") (require (lib "class.ss") (lib "tool.ss" "drscheme") "dracula-language-interface-sig.scm") (import drscheme:tool^) (export dracula-language-interface^) (define dracula-language<%> (interface (drscheme:language:language<%>) dracula-language?)) (define (dracula-language-default-mixin %) (if (implementation? % dracula-language<%>) % (class* % (dracula-language<%>) (define/public (dracula-language?) #f) (super-new)))) )