bbc-basic: Add 'seq' core function.

[jackhill/mal.git] / bbc-basic / stepA_mal.bbc

diff --git a/bbc-basic/stepA_mal.bbc b/bbc-basic/stepA_mal.bbc
index 609f862..be2ba2e 100644 (file)
--- a/bbc-basic/stepA_mal.bbc
+++ b/bbc-basic/stepA_mal.bbc
@@ -24,8 +24,6 @@ DATA (def! load-file (fn* (f) (eval (read-string (str "(do " (slurp f) ")")))))
 DATA (defmacro! cond (fn* (& xs) (if (> (count xs) 0) (list 'if (first xs) (if (> (count xs) 1) (nth xs 1) (throw "odd number of forms to cond")) (cons 'cond (rest (rest xs)))))))
 DATA (defmacro! or (fn* (& xs) (if (empty? xs) nil (if (= 1 (count xs)) (first xs) `(let* (or_FIXME ~(first xs)) (if or_FIXME or_FIXME (or ~@(rest xs))))))))
 DATA (def! *host-language* "BBC BASIC V")
-DATA (def! notimpl (fn* (& _) (throw "Not implemented")))
-DATA (def! seq     notimpl)
 DATA ""
 REPEAT
   READ form$