diff options
Diffstat (limited to 'src/interp/interop.boot')
-rw-r--r-- | src/interp/interop.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/interop.boot b/src/interp/interop.boot index 36d8c28b..9e9b6581 100644 --- a/src/interp/interop.boot +++ b/src/interp/interop.boot @@ -61,7 +61,7 @@ DNameTupleID := 2 DNameOtherID := 3 DNameToSExpr1 dname == - NULL dname => error "unexpected domain name" + null dname => error "unexpected domain name" first dname = DNameStringID => INTERN(CompStrToString rest dname) name0 := DNameToSExpr1 second dname @@ -201,7 +201,7 @@ quoteCatOp cat == oldAxiomCategoryLookupExport(catenv, self, op, sig, box, env) == [catform,hash, pack,:.] := catenv opIsHasCat op => if EQL(sig, hash) then [self] else nil - NULL(pack) => nil + null(pack) => nil if not VECP pack then pack:=apply(pack, CONS(self, rest catform)) RPLACA(CDDR catenv, pack) |