From 45dec735ec131c18d70ad202ed1446982b99ed9f Mon Sep 17 00:00:00 2001 From: Teddy Date: Mon, 5 Aug 2013 21:11:53 +0800 Subject: added more built-in procedures --- model.cpp | 2 ++ 1 file changed, 2 insertions(+) (limited to 'model.cpp') diff --git a/model.cpp b/model.cpp index 34ea645..3703f1d 100644 --- a/model.cpp +++ b/model.cpp @@ -159,6 +159,8 @@ string BoolObj::ext_repr() { return string(val ? "#t" : "#f"); } NumObj::NumObj(NumLvl _level, bool _exactness) : EvalObj(CLS_SIM_OBJ | CLS_NUM_OBJ), level(_level), exactness(_exactness) {} +bool NumObj::is_exact() { return exactness; } + BuiltinProcObj::BuiltinProcObj(BuiltinProc f, string _name) : OptObj(), handler(f), name(_name) {} -- cgit v1.2.3