diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/ChangeLog | 5 | ||||
| -rw-r--r-- | src/interp/compiler.boot | 4 | ||||
| -rw-r--r-- | src/interp/database.boot | 3 |
3 files changed, 10 insertions, 2 deletions
diff --git a/src/ChangeLog b/src/ChangeLog index 733c178d..6548cfb3 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,8 @@ +2008-08-19 Gabriel Dos Reis <gdr@cs.tamu.edu> + + * interp/database.boot (pathToDatabase): Honor $verbose. + * interp/compiler.boot (COMP-1): Likewise. + 2008-08-17 Gabriel Dos Reis <gdr@cs.tamu.edu> * interp/sys-globals.boot ($verbose): Move from sys-driver.boot. diff --git a/src/interp/compiler.boot b/src/interp/compiler.boot index 7279e5e3..bed900e0 100644 --- a/src/interp/compiler.boot +++ b/src/interp/compiler.boot @@ -1934,7 +1934,9 @@ COMP_-1 x == $CLOSEDFNS := [] lamex := COMP_-TRAN lamex COMP_-NEWNAM lamex - if FBOUNDP fname then + -- Note that category constructors are evaluated before they + -- their compiled, so this noise is not very helpful. + if $verbose and FBOUNDP fname then FORMAT(true,'"~&~%;;; *** ~S REDEFINED~%",fname) [[fname,lamex],:$CLOSEDFNS] diff --git a/src/interp/database.boot b/src/interp/database.boot index 68300521..48e5d1e7 100644 --- a/src/interp/database.boot +++ b/src/interp/database.boot @@ -48,7 +48,8 @@ $globalExposureGroupAlist := [] pathToDatabase name == if dbdir := systemAlgebraDirectory() then path := strconc(dbdir,name) - FORMAT(true,'" Using local database ~a..",path) + if $verbose then + FORMAT(true,'" Using local database ~a..",path) else path := strconc(systemRootDirectory(),'"algebra/",name) path |