diff options
Diffstat (limited to 'src/interp/i-object.boot')
-rw-r--r-- | src/interp/i-object.boot | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/src/interp/i-object.boot b/src/interp/i-object.boot index c8b9774d..ea3ddff7 100644 --- a/src/interp/i-object.boot +++ b/src/interp/i-object.boot @@ -78,6 +78,12 @@ objValUnwrap obj == unwrap rest obj objMode obj == first obj objEnv obj == $EmptyEnvironment +++ Return a newly constructed interpreter object, with fully evaluated +++ underlying value if in evaluation context. +object(v,m) == + $genValue => objNewWrap(timedEVALFUN v,m) + objNew(v,m) + objCodeVal obj == third obj objCodeMode obj == second obj |