diff options
Diffstat (limited to 'src/interp/br-util.boot')
| -rw-r--r-- | src/interp/br-util.boot | 7 |
1 files changed, 0 insertions, 7 deletions
diff --git a/src/interp/br-util.boot b/src/interp/br-util.boot index 2d0f2e8b..873dfa56 100644 --- a/src/interp/br-util.boot +++ b/src/interp/br-util.boot @@ -262,13 +262,6 @@ args2LispString x == null x => '"" strconc('",",form2LispString first x,fnTailTail rest x) -dbConstructorKind x == - target := getConstructorModemapFromDB(x).mmTarget - target = '(Category) => 'category - target is ['CATEGORY,'package,:.] => 'package - tableValue($defaultPackageNamesHT,x) => 'default_ package - 'domain - getConstructorForm name == name = 'Union => '(Union (_: a A) (_: b B)) name = 'UntaggedUnion => '(Union A B) |