mes: Iterative recursive macro expand.
[mes.git] / module / mes / psyntax.mes
index 5618f12f9937e37ee6239c8a4b8e63369786e7c9..abaa9969845d5708d0e935e52fd0efcc449df2e8 100644 (file)
 
 ;;; Code:
 
-(define (env:define a+ a)
-  (set-cdr! a+ (cdr a))
-  (set-cdr! a a+)
-  (set-cdr! (assq (quote *closure*) a) a+)
-  (car a+))
-
-(define-macro (define ARGS . BODY)
-  (cons* (quote env:define)
-         (cons* (quote cons)
-                (cons* (quote sexp:define)
-                       (list (quote quote)
-                             (cons (quote DEFINE) (cons ARGS BODY)))
-                       (quote ((current-module))))
-                (quote ((list))))
-         (quote ((current-module)))))
-
+(mes-use-module (mes scm))
 (mes-use-module (mes psyntax-0))
 (include-from-path "mes/psyntax.pp")
 (mes-use-module (mes psyntax-1))