bug fix: banalyzer+

Here’s a fix for a significant bug that I somehow didn’t catch (didn’t hear?) for several years. The side effect of the fix is that io is now significantly more responsive.

\ banalyzer+
\
\ a "smarter" banalyzer class designed to works in conjunction with the
\ parser classes.
\
\ ob.banalyzer+ clears internal storage and stats after an ALERT: message
\ is called. In addition, ob.banalyzer+ also takes into account the
\ frequency of ALERT: messages and adjusts sensitivity (i.e. the alert
\ threshold) accordingly.

…

\ MOD: HeP 03-24-09 Fix bug that prevented default iv-blyzr-tolerance-cfa from
\                   being set. Now set this during OPEN:

…

: BLYZR.SET.TOLERANCE.CFA   ( mode --  )
    CASE
        static_tolerance  OF  0                          ENDOF
        linear_tolerance  OF  'c blyzr.linear.tolerance  ENDOF
        shift_tolerance   OF  'c blyzr.shift.tolerance   ENDOF
        random_tolerance  OF  'c blyzr.random.tolerance  ENDOF
    ENDCASE
    iv=> iv-blyzr-tolerance-cfa
;

:m PUT.TOLERANCE.MODE:  ( mode --  , select tolerance calculating mode )
    dup  0 3  within?
    IF
        dup  iv=> iv-blyzr-tolerance-mode
    \
        iv-dev-#opened
        IF
            blyzr.set.tolerance.cfa
        ELSE
            drop
        THEN
    ELSE
        drop
        " put.tolerance.mode:"  " unrecognized mode selector"
    THEN
;m

…

:m RAW.OPEN:    (  --  )
    raw.open: super
\
    iv-blyzr-tolerance-mode  BLYZR.SET.TOLERANCE.CFA
;m

…