diff options
Diffstat (limited to 'src/interp/g-timer.boot')
| -rw-r--r-- | src/interp/g-timer.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/g-timer.boot b/src/interp/g-timer.boot index 09a272e7..6d09f945 100644 --- a/src/interp/g-timer.boot +++ b/src/interp/g-timer.boot @@ -81,7 +81,7 @@ makeLongStatStringByProperty _ cl := CAR LASSOC('other,listofnames) cl := CAR LASSOC(cl,listofclasses) PUT(cl,classproperty, otherStatTotal + GETL(cl,classproperty)) - if flag ^= 'long then + if flag ~= 'long then total := 0 str := '"" for [class,name,:ab] in listofclasses repeat @@ -140,7 +140,7 @@ startTimingProcess name == if EQ(name, 'load) then statRecordLoadEvent() stopTimingProcess name == - (name ^= peekTimedName()) and null $InteractiveMode => + (name ~= peekTimedName()) and null $InteractiveMode => keyedSystemError("S2GL0015",[name,peekTimedName()]) updateTimedName peekTimedName() popTimedName() |