diff options
Diffstat (limited to 'src/interp')
| -rw-r--r-- | src/interp/nruncomp.boot | 6 |
1 files changed, 3 insertions, 3 deletions
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 |