From 0f074a9fef5e7ff513bdb8ddbdfe616661e529ed Mon Sep 17 00:00:00 2001 From: rxi Date: Wed, 10 Apr 2019 19:34:30 +0100 Subject: [PATCH] Added scripts/macros.fe --- scripts/macros.fe | 27 +++++++++++++++++++++++++++ 1 file changed, 27 insertions(+) create mode 100644 scripts/macros.fe diff --git a/scripts/macros.fe b/scripts/macros.fe new file mode 100644 index 0000000..e6bcffa --- /dev/null +++ b/scripts/macros.fe @@ -0,0 +1,27 @@ + + +(= push (mac (val lst) + (list '= lst (list 'cons val lst)) +)) + + +(= for (mac (item lst . body) + (list 'do + (list 'let 'for-iter lst) + (list 'while 'for-iter + (list 'let item '(car for-iter)) + '(= for-iter (cdr for-iter)) + (cons 'do body) + ) + ) +)) + + +(= items (list "cat" "dog" "fox")) + +(push "owl" items) +(push "cow" items) + +(for x items + (print ">" x) +)