diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-11-27 17:06:27 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-11-27 17:06:27 +0000 |
| commit | aa1d5ca6c7483eb79d458291f96383d89468efdc (patch) | |
| tree | 9f3f211a5fee5ffeba97dc1f836899c6b2193bfa | |
| parent | 1a225a4327c7771cef3270e146dc9ead203afe74 (diff) | |
| download | open-axiom-aa1d5ca6c7483eb79d458291f96383d89468efdc.tar.gz | |
* interp/nruncomp.boot (NRTassocIndex): Don't set $found.
| -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 |