aboutsummaryrefslogtreecommitdiff
path: root/src/interp/i-object.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/i-object.boot')
-rw-r--r--src/interp/i-object.boot4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/i-object.boot b/src/interp/i-object.boot
index e9c4386d..b4d1952e 100644
--- a/src/interp/i-object.boot
+++ b/src/interp/i-object.boot
@@ -78,8 +78,8 @@ objValUnwrap obj == unwrap CDR obj
objMode obj == CAR obj
objEnv obj == $EmptyEnvironment
-objCodeVal obj == CADDR obj
-objCodeMode obj == CADR obj
+objCodeVal obj == third obj
+objCodeMode obj == second obj
--% Utility Functions Used Only by the Intepreter