From aa1d5ca6c7483eb79d458291f96383d89468efdc Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Thu, 27 Nov 2008 17:06:27 +0000
Subject: 	* interp/nruncomp.boot (NRTassocIndex): Don't set $found.

---
 src/interp/nruncomp.boot | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'src/interp')

diff --git a/src/interp/nruncomp.boot b/src/interp/nruncomp.boot
index 287d5bc8..3d5114d7 100644
--- a/src/interp/nruncomp.boot
+++ b/src/interp/nruncomp.boot
@@ -232,11 +232,11 @@ genDeltaSpecialSig x ==
 ++ Otherwise, return nil this is the first time `x' is referenced, or
 ++ if `x' designates neither a domain nor a value (e.g. a modemap).
 NRTassocIndex: %Form -> %Maybe %Short
-NRTassocIndex x == --returns index of "domain" entry x in al
-  NULL x => x
+NRTassocIndex x ==
+  null x => x
   x = $NRTaddForm => 5
   k := or/[i for i in 1.. for y in $NRTdeltaList
-            | y.0 = 'domain and y.1 = x and ($found := y)] =>
+            | first y = "domain" and second y = x] =>
     $NRTbase + $NRTdeltaLength - k
   nil
 
-- 
cgit v1.2.3