diff options
Diffstat (limited to 'src/interp/br-op2.boot')
-rw-r--r-- | src/interp/br-op2.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/br-op2.boot b/src/interp/br-op2.boot index 0b30f52c..bc9e0049 100644 --- a/src/interp/br-op2.boot +++ b/src/interp/br-op2.boot @@ -419,7 +419,7 @@ kFormatSlotDomain x == fn formatSlotDomain x where fn x == (op := first x) is '_$ => '_$ op is 'local => second x op is ":" => [":",second x,fn third x] - isConstructorName op => [fn y for y in x] + IDENTP op and isConstructorName op => [fn y for y in x] integer? op => op op is 'QUOTE and atom second x => second x x |