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

/#include "tclint.h"/a\
\#include "tclxint.h"

/	    sprintf(interp->result, "%g", value.doubleValue);/c\
	    Tcl_ReturnDouble (interp, value.doubleValue);
Commit	Line	Data
1f4aeab6 RS	1	/#include "tclint.h"/a\
	2	\#include "tclxint.h"
	3
6a5fa4e0 MG	4	/ sprintf(interp->result, "%g", value.doubleValue);/c\
6a5fa4e0 MG	5	Tcl_ReturnDouble (interp, value.doubleValue);