src/scheme-derived-forms.scm

   1 ;; define (procedural syntax)
   2
   3 ; Due to recursive macro expansion, this definition also allows
   4 ; for curried function definitions.
   5
   6 (define-macro (define args . body)
   7               (if (pair? args)
   8                 `(define ,(car args) (lambda ,(cdr args) ,@body))
   9                 'no-match))
  10
  11 ;; Macro expansion test code
  12
  13 (define-macro (test)
  14               '(begin (display "Hello!") (newline)))