diff options
Diffstat (limited to 'src/interp/br-op2.boot')
-rw-r--r-- | src/interp/br-op2.boot | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/br-op2.boot b/src/interp/br-op2.boot index f82cea01..d1f7e888 100644 --- a/src/interp/br-op2.boot +++ b/src/interp/br-op2.boot @@ -422,11 +422,11 @@ zeroOneConvert x == kFormatSlotDomain x == fn formatSlotDomain x where fn x == atom x => x (op := CAR x) = '_$ => '_$ - op = 'local => CADR x - op = ":" => [":",CADR x,fn CADDR x] + op = 'local => second x + op = ":" => [":",second x,fn third x] isConstructorName op => [fn y for y in x] INTEGERP op => op - op = 'QUOTE and atom CADR x => CADR x + op = 'QUOTE and atom second x => second x x koCatOps(conform,domname) == |