1 ;; define (procedural syntax)
3 ; Due to recursive macro expansion, this definition also allows
4 ; for curried function definitions.
6 (define-macro (define args . body)
8 `(define ,(car args) (lambda ,(cdr args) ,@body))
11 ;; Macro expansion test code
14 '(begin (display "Hello!") (newline)))