aboutsummaryrefslogtreecommitdiff
path: root/src/interp/br-util.boot
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2011-03-05 16:46:00 +0000
committerdos-reis <gdr@axiomatics.org>2011-03-05 16:46:00 +0000
commit382517ec42b83bef4bb6effa31b2e8cc70dada5d (patch)
treefacc962192caedbe0af083a768fdee3c0dd6df8c /src/interp/br-util.boot
parentb751bf4b87bb5f784e3a08185e69a43efac23e48 (diff)
downloadopen-axiom-382517ec42b83bef4bb6effa31b2e8cc70dada5d.tar.gz
* interp/as.boot: Use getConstructorAbbreviationFromDB.
* interp/br-con.boot: Likewise. * interp/br-data.boot: Likewise. * interp/br-prof.boot: Likewise. * interp/br-util.boot: Likewise. * interp/c-doc.boot: Likewise. * interp/clammed.boot: Likewise. * interp/database.boot: Likewise. * interp/define.boot: Likewise. * interp/format.boot: Likewise. * interp/functor.boot: Likewise. * interp/g-cndata.boot: Likewise. * interp/i-funsel.boot: Likewise. * interp/i-output.boot: Likewise. * interp/lisplib.boot: Likewise. * interp/pspad1.boot: Likewise.
Diffstat (limited to 'src/interp/br-util.boot')
-rw-r--r--src/interp/br-util.boot5
1 files changed, 3 insertions, 2 deletions
diff --git a/src/interp/br-util.boot b/src/interp/br-util.boot
index 8ee40a5d..5ad260ae 100644
--- a/src/interp/br-util.boot
+++ b/src/interp/br-util.boot
@@ -1,6 +1,6 @@
-- Copyright (c) 1991-2002, The Numerical Algorithms Group Ltd.
-- All rights reserved.
--- Copyright (C) 2007-2010, Gabriel Dos Reis.
+-- Copyright (C) 2007-2011, Gabriel Dos Reis.
-- All rights reserved.
--
-- Redistribution and use in source and binary forms, with or without
@@ -532,7 +532,8 @@ emptySearchPage(kind,filter,:options) ==
htSay '"}}"
htShowPage()
-isLoaded? conform == GETL(constructor? opOf conform,'LOADED)
+isLoaded? conform ==
+ property(getConstructorAbbreviationFromDB opOf conform,'LOADED)
string2Integer s ==
and/[digit? (s.i) for i in 0..MAXINDEX s] => readInteger s