aboutsummaryrefslogtreecommitdiff
path: root/src/interp
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2013-05-11 22:35:18 +0000
committerdos-reis <gdr@axiomatics.org>2013-05-11 22:35:18 +0000
commit8df117c9281b3f929e55431262d42a2da9ce0ab9 (patch)
tree89e249e6c9154ad6b7b2fbc515f49d76e42196e1 /src/interp
parent9df910dc2e9a9a1eaf7a0e8d726a2181b1e31862 (diff)
downloadopen-axiom-8df117c9281b3f929e55431262d42a2da9ce0ab9.tar.gz
Remove IndexedTwoDimensionalArray.
Diffstat (limited to 'src/interp')
-rw-r--r--src/interp/database.boot4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/database.boot b/src/interp/database.boot
index 33e024e1..d91fedb7 100644
--- a/src/interp/database.boot
+++ b/src/interp/database.boot
@@ -1,6 +1,6 @@
-- Copyright (c) 1991-2002, The Numerical Algorithms Group Ltd.
-- All rights reserved.
--- Copyright (C) 2007-2012, Gabriel Dos Reis.
+-- Copyright (C) 2007-2013, Gabriel Dos Reis.
-- All rights reserved.
--
-- Redistribution and use in source and binary forms, with or without
@@ -94,8 +94,8 @@ getConstructorAncestorsFromDB ctor ==
++ of the constructor `form'.
getConstructorModemap: %Symbol -> %Mode
getConstructorModemap ctor ==
+ db := loadDBIfCan constructorDB ctor => dbConstructorModemap db
GETDATABASE(ctor, 'CONSTRUCTORMODEMAP)
- or dbConstructorModemap loadDBIfNecessary constructorDB ctor
getConstructorFormFromDB: %Symbol -> %Form
getConstructorFormFromDB ctor ==