primitive definition of hyphen-define from http://www.greghendershott.com/fear-of-macros/pattern-matching.html

hyphen-define.rkt

(define-syntax (hyphen-define/0.9 stx)
    (let* [(l (syntax->datum stx))
           (a (second l))
           (b (third l))
           (args (fourth l))
           (body (cddddr l))
           (name (string->symbol (format "~a-~a" a b)))]
      (datum->syntax stx `(define (,name . ,args) ,@body))))