diff options
Diffstat (limited to 'src/interp/br-op1.boot')
| -rw-r--r-- | src/interp/br-op1.boot | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/br-op1.boot b/src/interp/br-op1.boot index a9c3418d..f36807ba 100644 --- a/src/interp/br-op1.boot +++ b/src/interp/br-op1.boot @@ -217,9 +217,9 @@ conform2StringList(form,opFn,argFn,exception) == [op1,:args] := form op := IFCAR tableValue($lowerCaseConTb,op1) or op1 null args => apply(opFn,[op]) - special := op in '(Union Record Mapping) + special := builtinConstructor? op cosig := - special => ['T for x in args] + special => [true for x in args] rest getDualSignature op atypes := special => cosig @@ -261,7 +261,7 @@ dbMapping2StringList [target,:sl] == [:sourcePart,'" -> ",:target] dbOuttran form == - if LISTP form then + if form is [.,:.] then [op,:args] := form else op := form |