(export
  define
  define-syntax)
(import (only (csc builtins)
          builtin-define
          define-syntax))
(begin


  (define-syntax define
    (syntax-rules ()
      ((define (f . args) body ...)
        (define f (lambda args body ...)))
      ((define name binding)
        (builtin-define name binding)))))