From bdf3f9837adc3a9d6666c38fe0a8a22a79b9bfaa Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Tue, 20 May 2008 04:22:58 +0000
Subject:

---
 src/interp/i-object.boot | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src/interp')

diff --git a/src/interp/i-object.boot b/src/interp/i-object.boot
index 5a793c2c..919d54a1 100644
--- a/src/interp/i-object.boot
+++ b/src/interp/i-object.boot
@@ -112,7 +112,8 @@ getValueNormalForm obj ==
   IDENTP op and isConstructorName op => 
     isConceptualCategory objMode obj => instantiationNormalForm(op,argl)
     MKQ val
-  -- what else can it be?  Don't know; leave it alone.
+  -- This is not the final value of `obj', rather something that needs
+  -- further evaluation, e.g. generated code to compute the value.
   val
 
 instantiationNormalForm(op,argl) ==
-- 
cgit v1.2.3