diff options
Diffstat (limited to 'src/interp/info.boot')
| -rw-r--r-- | src/interp/info.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/info.boot b/src/interp/info.boot index e71e1218..21bc44ba 100644 --- a/src/interp/info.boot +++ b/src/interp/info.boot @@ -258,7 +258,7 @@ actOnInfo(u,$e) == -- SAY("augmenting ",name,": ",cat) -- put(name, "value", (vval, cat, venv), $e) member(cat,first ocatvec.4) or - ASSOC(cat,CADR ocatvec.4) is [.,"T",.] => $e + assoc(cat,second ocatvec.4) is [.,"T",.] => $e --SAY("Category extension error: --cat shouldn't be a join --what was being asserted is an ancestor of what was known |