Move template to top level. Add license.

Also, cleanup TODO a bit.

1 files changed, 0 insertions, 85 deletions

diff --git a/docs/steps/step6_file.txt b/docs/steps/step6_file.txt
deleted file mode 100644
index bccf8fa..0000000
--- a/docs/steps/step6_file.txt
+++ /dev/null
@@ -1,85 +0,0 @@
---- step6_file ----------------------------------
-import types, reader, printer, env, core
-
-READ(str): return reader.read_str(str)
-
-eval_ast(ast,env):
-  switch type(ast):
-    symbol:      return env.get(ast)
-    list,vector: return ast.map((x) -> EVAL(x,env))
-    hash:        return ast.map((k,v) -> list(k, EVAL(v,env)))
-    _default_:   return ast
-
-EVAL(ast,env):
-  while true:
-    if not list?(ast): return eval_ast(ast, env)
-    switch ast[0]:
-      'def!:        return env.set(ast[1], EVAL(ast[2], env))
-      'let*:        env = ...; ast = ast[2] // TCO
-      'do:          ast = eval_ast(ast[1..-1], env)[-1] // TCO
-      'if:          EVAL(ast[1], env) ? ast = ast[2] : ast = ast[3] // TCO
-      'fn*:         return new MalFunc(...)
-      _default_:    f, args = eval_ast(ast, env)
-                    if malfunc?(ast[0]): ast = ast[0].fn; env = ... // TCO
-                    else:                return apply(f, args)
-
-PRINT(exp): return printer.pr_str(exp)
-
-repl_env = new Env()
-rep(str): return PRINT(EVAL(READ(str),repl_env))
-
-;; core.EXT: defined using Racket
-core.ns.map((k,v) -> (repl_env.set(k, v)))
-repl_env.set('eval, (ast) -> EVAL(ast, repl-env))
-repl_env.set('*ARGV*, cmdline_args[1..])
-
-;; core.mal: defined using the language itself
-rep("(def! not (fn* (a) (if a false true)))")
-rep("(def! load-file (fn* (f) ...))")
-
-if cmdline_args: rep("(load-file \"" + args[0] + "\")"); exit 0
-
-main loop:
-  try:      println(rep(readline("user> ")))
-  catch e:  println("Error: ", e)
-
---- env module ----------------------------------
-class Env (outer=null,binds=[],exprs=[])
-    data = hash_map()
-    foreach b, i in binds:
-      if binds[i] == '&: data[binds[i+1]] = exprs.drop(i); break
-      else: data[binds[i]] = exprs[i]
-  set(k,v): return data.set(k,v)
-  find(k): return data.has(k) ? this : (if outer ? find(outer) : null)
-  get(k): return data.find(k).get(k) OR raise "'" + k + "' not found"
-    
---- core module ---------------------------------
-ns = {'=:        equal?,
-      'nil?:     nil?,
-      'true?:    true?,
-      'false?:   false?,
-      'symbol?:  symbol?,
-
-      'pr-str:   (a) -> a.map(|s| pr_str(e,true)).join(" ")),
-      'str:      (a) -> a.map(|s| pr_str(e,false)).join("")),
-      'prn:      (a) -> println(a.map(|s| pr_str(e,true)).join(" ")),
-      'println:  (a) -> println(a.map(|s| pr_str(e,false)).join(" ")),
-      'read-string: read_str,
-      'slurp     read-file,
-
-      '<:        lt,
-      '<=:       lte,
-      '>:        gt,
-      '>=:       gte,
-      '+:        add,
-      '-:        sub,
-      '*:        mult,
-      '/:        div,
-
-      'list:     list,
-      'list?:    list?,
-      'hash-map: hash_map,
-      'map?:     hash_map?,
-
-      'empty?:   empty?,
-      'count:    count}