diff --git a/rtl/sma.myc b/rtl/sma.myc deleted file mode 100644 index f4e918e..0000000 --- a/rtl/sma.myc +++ /dev/null @@ -1,20 +0,0 @@ -(do - (def SMA - (fn [length] - (do - (def history (series length)) - (def sum 0.0) - - (fn [val] - (do - (def hist_len (len history)) - (if (>= hist_len length) - (assign sum (- sum (history (- length 1))))) - - (push history val) - (assign sum (+ sum val)) - - (if (>= hist_len length) - (/ sum length)) - ))))) -) diff --git a/src/ast/rtl/prelude.myc b/src/ast/rtl/prelude.myc index 718f63d..4178b72 100644 --- a/src/ast/rtl/prelude.myc +++ b/src/ast/rtl/prelude.myc @@ -2,6 +2,8 @@ ;; Standard macros and core utilities. (do + (def func1 (print "Hello World")) + (macro while [cond body] `((fn [] (if ~cond (do ~body (again))