diff options
Diffstat (limited to 'src/interp/i-toplev.boot')
-rw-r--r-- | src/interp/i-toplev.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/i-toplev.boot b/src/interp/i-toplev.boot index 50b372ce..fc7d4cf2 100644 --- a/src/interp/i-toplev.boot +++ b/src/interp/i-toplev.boot @@ -154,7 +154,7 @@ processInteractive(form, posnForm) == object := processInteractive1(form, posnForm) --object := ERRORSET(['processInteractive1,LIST('QUOTE,form),['QUOTE,posnForm]],'t,'t) if not($ProcessInteractiveValue) then - if $reportInstantiations = true then + if $reportInstantiations then reportInstantiations() CLRHASH $instantRecord writeHistModesAndValues() @@ -203,7 +203,7 @@ recordAndPrint(x,md) == if $printStorageIfTrue then printStorage() if $printStatisticsSummaryIfTrue then printStatisticsSummary() if integer? $HTCompanionWindowID then mkCompanionPage md - $mkTestFlag = true => recordAndPrintTest md + $mkTestFlag => recordAndPrintTest md $runTestFlag => $mkTestOutputType := md 'done |