factor/contrib/algebra/repl.factor

IN: algebra USING: prettyprint io kernel parser ;

: algebra-repl ( -- )
    "ok " write flush
    read-line dup "exit" = [
        terpri "bye" print
    ] [
        parse infix f swap eval-infix call . algebra-repl
    ] ifte ;