From 063d1ff23831ed4d081e1edbee9c5eb2cfa4d051 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Fri, 4 Jun 2010 04:09:59 +0000
Subject: 	* interp/br-con.boot: More cleanup. 	* interp/br-op1.boot:
 Likewise. 	* interp/br-saturn.boot: Likewise. 	* interp/c-util.boot:
 Likewise. 	* interp/category.boot: Likewise. 	* interp/clam.boot:
 Likewise. 	* interp/database.boot: Likewise. 	* interp/functor.boot:
 Likewise. 	* interp/g-cndata.boot: Likewise. 	* interp/g-util.boot:
 Likewise. 	* interp/guess.boot: Likewise. 	* interp/i-coerce.boot:
 Likewise. 	* interp/i-funsel.boot: Likewise. 	*
 interp/i-intern.boot: Likewise. 	* interp/i-syscmd.boot: Likewise. 
 * interp/interop.boot: Likewise. 	* interp/newfort.boot: Likewise. 
 * interp/nruncomp.boot: Likewise. 	* interp/nrunfast.boot: Likewise. 
 * interp/nrunopt.boot: Likewise. 	* interp/setvars.boot: Likewise. 
 * interp/slam.boot: Likewise. 	* interp/topics.boot: Likewise.

---
 src/interp/nrunopt.boot | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/interp/nrunopt.boot')

diff --git a/src/interp/nrunopt.boot b/src/interp/nrunopt.boot
index a18db852..3d93d870 100644
--- a/src/interp/nrunopt.boot
+++ b/src/interp/nrunopt.boot
@@ -302,7 +302,7 @@ removeAttributePredicates pl ==
  
 transHasCode x ==
   atom x => x
-  op := QCAR x
+  op := x.op
   op in '(HasCategory HasAttribute) => x
   op="has" => compHasFormat x
   [transHasCode y for y in x]
@@ -330,7 +330,7 @@ orderByContainment pl ==
 buildBitTable(:l) == fn(reverse l,0) where fn(l,n) ==
   null l => n
   n := n + n
-  if QCAR l then n := n + 1
+  if first l then n := n + 1
   fn(rest l,n)
  
 buildPredVector(init,n,l) == fn(init,2 ** n,l) where fn(acc,n,l) ==
-- 
cgit v1.2.3