mirror of
https://github.com/vinc/moros.git
synced 2024-06-18 23:17:04 +00:00
29 lines
442 B
Plaintext
29 lines
442 B
Plaintext
|
(define def
|
||
|
|
(macro args `(define ,@args)))
|
||
|
|
|
||
|
|
(define mac
|
||
|
|
(macro args `(macro ,@args)))
|
||
|
|
|
||
|
|
(define fun
|
||
|
|
(macro args `(function ,@args)))
|
||
|
|
|
||
|
|
(define def-mac
|
||
|
|
(macro args `(define-macro ,@args)))
|
||
|
|
|
||
|
|
(define def-fun
|
||
|
|
(macro args `(define-function ,@args)))
|
||
|
|
|
||
|
|
|
||
|
|
(define label
|
||
|
|
(macro args `(define ,@args)))
|
||
|
|
|
||
|
|
(define lambda
|
||
|
|
(macro args `(function ,@args)))
|
||
|
|
|
||
|
|
(define progn
|
||
|
|
(macro args `(do ,@args)))
|
||
|
|
|
||
|
|
|
||
|
|
(define begin
|
||
|
|
(macro args `(do ,@args)))
|