From 91bd7571dc0baf8d17047d553e4616dd587c0ffb Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sat, 26 Sep 2009 13:49:18 +0000
Subject: 	* interp/: More cleanup.

---
 src/interp/i-object.boot | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

(limited to 'src/interp/i-object.boot')

diff --git a/src/interp/i-object.boot b/src/interp/i-object.boot
index b4d1952e..b9bdb21d 100644
--- a/src/interp/i-object.boot
+++ b/src/interp/i-object.boot
@@ -73,9 +73,9 @@ objNewCode(val, mode) == ["CONS", MKQ mode,val ]
 objSetVal(obj,val) == RPLACD(obj,val)
 objSetMode(obj,mode) == RPLACA(obj,mode)
 
-objVal obj == CDR obj
-objValUnwrap obj == unwrap CDR obj
-objMode obj == CAR obj
+objVal obj == rest obj
+objValUnwrap obj == unwrap rest obj
+objMode obj == first obj
 objEnv obj == $EmptyEnvironment
 
 objCodeVal obj == third obj
@@ -144,8 +144,8 @@ asTupleNewCode(eltType, size, listOfElts) ==
 asTupleNewCode0(eltType,listForm) == 
   ["asTupleNew0", quoteForm getVMType eltType, listForm]
 
-asTupleSize(at) == CAR at
-asTupleAsVector(at) == CDR at
+asTupleSize(at) == first at
+asTupleAsVector(at) == rest at
 asTupleAsList(at) == VEC2LIST asTupleAsVector at
 
 --% Basic Object Type Identification
-- 
cgit v1.2.3