Import Micropolis from http://www.donhopkins.com/home/micropolis/

[micropolis] / src / tclx / ucbsrc / tclexpr.sed

/	    sprintf(interp->result, "%g", value.doubleValue);/c\
	    Tcl_ReturnDouble (interp, value.doubleValue);