forth/step0_repl.fs

   1 require types.fs
   2
   3 : read ;
   4 : eval ;
   5 : print ;
   6
   7 : rep
   8     read
   9     eval
  10     print ;
  11
  12 create buff 128 allot
  13
  14 : read-lines
  15     begin
  16       ." user> "
  17       buff 128 stdin read-line throw
  18     while
  19       buff swap
  20       rep type cr
  21     repeat ;
  22
  23 read-lines