From aa1d5ca6c7483eb79d458291f96383d89468efdc Mon Sep 17 00:00:00 2001 From: dos-reis Date: Thu, 27 Nov 2008 17:06:27 +0000 Subject: * interp/nruncomp.boot (NRTassocIndex): Don't set $found. --- src/ChangeLog | 4 ++++ src/interp/nruncomp.boot | 6 +++--- 2 files changed, 7 insertions(+), 3 deletions(-) diff --git a/src/ChangeLog b/src/ChangeLog index 998127fd..f56d4925 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,7 @@ +2008-11-27 Gabriel Dos Reis + + * interp/nruncomp.boot (NRTassocIndex): Don't set $found. + 2008-11-26 Gabriel Dos Reis * interp/define.boot (compSignature): New. Split from 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