aboutsummaryrefslogtreecommitdiff
path: root/src/interp/g-cndata.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/g-cndata.boot')
-rw-r--r--src/interp/g-cndata.boot9
1 files changed, 1 insertions, 8 deletions
diff --git a/src/interp/g-cndata.boot b/src/interp/g-cndata.boot
index c0af28c2..58783619 100644
--- a/src/interp/g-cndata.boot
+++ b/src/interp/g-cndata.boot
@@ -1,6 +1,6 @@
-- Copyright (c) 1991-2002, The Numerical Algorithms Group Ltd.
-- All rights reserved.
--- Copyright (C) 2007-2008, Gabriel Dos Reis.
+-- Copyright (C) 2007-2009, Gabriel Dos Reis.
-- All rights reserved.
--
-- Redistribution and use in source and binary forms, with or without
@@ -94,13 +94,6 @@ categoryForm? c ==
getConstructorKindFromDB op = "category" => true
false
-getImmediateSuperDomain(d) ==
- IFCAR getSuperDomainFromDB opOf d
-
-maximalSuperType d ==
- d' := getSuperDomainFromDB opOf d => maximalSuperType first d'
- d
-
-- probably will switch over to 'libName soon
getLisplibName(c) == getConstructorAbbreviation(c)