From 8df117c9281b3f929e55431262d42a2da9ce0ab9 Mon Sep 17 00:00:00 2001 From: dos-reis Date: Sat, 11 May 2013 22:35:18 +0000 Subject: Remove IndexedTwoDimensionalArray. --- src/interp/database.boot | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/interp') 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 == -- cgit v1.2.3