logo/step0_repl.lg

   1 load "../logo/readline.lg
   2
   3 to _read :str
   4 output :str
   5 end
   6
   7 to _eval :ast :env
   8 output :ast
   9 end
  10
  11 to _print :exp
  12 output :exp
  13 end
  14
  15 to repl
  16 localmake "running "true
  17 while [:running] [
  18   localmake "line readline word "user> :space_char
  19   ifelse :line=[] [
  20     print "
  21     make "running "false
  22   ] [
  23     if not emptyp :line [
  24       print _print _eval _read :line []
  25     ]
  26   ]
  27 ]
  28 end
  29
  30 repl
  31 bye