aboutsummaryrefslogtreecommitdiff
path: root/src/interp/showimp.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/showimp.boot')
-rw-r--r--src/interp/showimp.boot2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/showimp.boot b/src/interp/showimp.boot
index 06db93ac..887af990 100644
--- a/src/interp/showimp.boot
+++ b/src/interp/showimp.boot
@@ -193,7 +193,7 @@ showDomainsOp1(u,key) ==
u
getDomainRefName(dom,nam) ==
- PAIRP nam => [getDomainRefName(dom,x) for x in nam]
+ CONSP nam => [getDomainRefName(dom,x) for x in nam]
not FIXP nam => nam
slot := dom.nam
VECP slot => slot.0