diff options
| -rw-r--r-- | src/ChangeLog | 4 | ||||
| -rw-r--r-- | 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 <gdr@cs.tamu.edu> + + * interp/nruncomp.boot (NRTassocIndex): Don't set $found. + 2008-11-26 Gabriel Dos Reis <gdr@cs.tamu.edu> * 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 |