Welcome to the CHICKEN Scheme pasting service

(define-syntax alias-syntax
  (syntax-rules ()
   ((_ original alias)
    (define-syntax alias
      (syntax-rules ()
        ((_ args ...) (original args ...))))))

; Error: during expansion of (syntax-rules ...) - too many ellipses: (args ...)

(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 ...)))))))