lang/dracula-language-interface.ss
(module dracula-language-interface (lib "a-unit.ss")
  (require (lib "class.ss")
           (lib "tool.ss" "drscheme")
           "dracula-language-interface-sig.ss")
  (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))))
  )