aboutsummaryrefslogtreecommitdiff
path: root/src/interp/functor.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/functor.boot')
-rw-r--r--src/interp/functor.boot3
1 files changed, 1 insertions, 2 deletions
diff --git a/src/interp/functor.boot b/src/interp/functor.boot
index a3e122c6..c5a55ae3 100644
--- a/src/interp/functor.boot
+++ b/src/interp/functor.boot
@@ -54,8 +54,7 @@ DomainPrint(D,brief) ==
$Sublis: local := nil
$WhereCounter: local := 1
env:=
- not BOUNDP '$e => $EmptyEnvironment
- $e='$e => $EmptyEnvironment
+ null $e => $EmptyEnvironment
$e --in case we are called from top level
isCategory D => CategoryPrint(D,env)
$Sublis:= [[keyItem D,:'original]]