diff options
Diffstat (limited to 'src/interp/br-op2.boot')
-rw-r--r-- | src/interp/br-op2.boot | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/interp/br-op2.boot b/src/interp/br-op2.boot index f4d259dd..c1f8ac28 100644 --- a/src/interp/br-op2.boot +++ b/src/interp/br-op2.boot @@ -424,8 +424,7 @@ kFormatSlotDomain x == fn formatSlotDomain x where fn x == (op := CAR x) = '_$ => '_$ op = 'local => CADR x op = ":" => [":",CADR x,fn CADDR x] - MEMQ(op,$Primitives) or constructor? op => - [fn y for y in x] + isConstructorName op => [fn y for y in x] INTEGERP op => op op = 'QUOTE and atom CADR x => CADR x x |