guile-examples/shell/guile-shell/alias.scm

(library (alias)
  (export alias)
  (import (except (rnrs base) error)
          (only (guile)
                lambda* λ))

  (define-syntax alias
    (syntax-rules ()
      [(_ aliased new-alias)
       (define aliased new-alias)]
      ;; Catch all.
      [(_ other* ...)
       (syntax-error "unrecognized form in macro call:"
                     (quote
                      (alias aliased new-alias)))])))