diff options
Diffstat (limited to 'src/interp/compiler.boot')
-rw-r--r-- | src/interp/compiler.boot | 4 |
1 files changed, 3 insertions, 1 deletions
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] |