USING: accessors arrays continuations debugger eval io
io.encodings.utf8 io.servers.connection kernel ;
IN: eval-server

: execute-string ( string -- )
    [ 1array [ parse-string call ] with-datastack drop ]
    [ nip print-error ] recover ;

: <eval-server> ( -- threaded-server )
    utf8 <threaded-server>
        "eval-server" >>name
        9999 >>insecure
        [ [ execute-string flush ] each-line ] >>handler ;

: start-eval-server ( -- )
    <eval-server> start-server ;

MAIN: start-eval-server