eatonphil

(*
 * Tested on PolyML. `polyc server.ml && ./a.out`
 *)

fun println s =
    (print (s ^ "\n"); TextIO.flushOut TextIO.stdOut)

fun readAll conn req =
    let val ntoread = Socket.Ctl.getNREAD conn in
    if ntoread > 0

crcx

\ This is an implementation of quotations and some combinators
\ for use with Forth. The combinators should work with most
\ Forth systems; the quotation implementation here is gForth
\ specific.

\ ************************************************************

\ dip
\ Stack:   value  quote  --  value
\ Executes a quotation with a value being temporarily removed