lib/scheme/base/10-define.csc


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

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


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