io/step0_repl.io

   1 Regex
   2
   3 READ := method(str, str)
   4
   5 EVAL := method(ast, env, ast)
   6
   7 PRINT := method(exp, exp)
   8
   9 RE := method(str, EVAL(READ(str), nil))
  10
  11 REP := method(str, PRINT(RE(str)))
  12
  13 loop(
  14     line := MalReadline readLine("user> ")
  15     if(line isNil, break)
  16     if(line isEmpty, continue)
  17     REP(line) println
  18 )