(use low-level-macros)
(import-for-syntax (only low-level-macros er-macro-rules))

(define-syntax alias-syntax
  (er-macro-rules (%define-syntax %syntax-rules)
    ((_ orig alias)
      `(,%define-syntax ,alias
         (,%syntax-rules ()
           ((,alias args ...) (,orig args ...)))))))