diff options
Diffstat (limited to 'src/interp/i-util.boot')
-rw-r--r-- | src/interp/i-util.boot | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/interp/i-util.boot b/src/interp/i-util.boot index b064c526..37bdd0fd 100644 --- a/src/interp/i-util.boot +++ b/src/interp/i-util.boot @@ -132,9 +132,10 @@ Undef(:u) == --------------------> NEW DEFINITION (see interop.boot.pamphlet) devaluate d == not REFVECP d => d - QSGREATERP(QVSIZE d,5) and QREFELT(d,3) is ['Category] => QREFELT(d,0) + QSGREATERP(QVSIZE d,5) and getShellEntry(d,3) is ['Category] => + getShellEntry(d,0) QSGREATERP(QVSIZE d,0) => - d':=QREFELT(d,0) + d':=getShellEntry(d,0) isFunctor d' => d' d d |