diff options
Diffstat (limited to 'src/interp/ht-util.boot')
-rw-r--r-- | src/interp/ht-util.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/ht-util.boot b/src/interp/ht-util.boot index 9f32e448..fe18f0e5 100644 --- a/src/interp/ht-util.boot +++ b/src/interp/ht-util.boot @@ -473,7 +473,7 @@ executeInterpreterCommand command == PRINC command TERPRI() ncSetCurrentLine(command) - CATCH('SPAD__READER, parseAndInterpret command) + CATCH($SpadReaderTag, parseAndInterpret command) PRINC MKPROMPT() FINISH_-OUTPUT() @@ -512,7 +512,7 @@ checkCondition(s1, string, condList) == val = '"Syntax Error " => '"Error: Syntax Error " condErrorMsg pattern [type, : data] := val - newType := CATCH('SPAD__READER, resolveTM(type, pattern)) + newType := CATCH($SpadReaderTag, resolveTM(type, pattern)) null newType => condErrorMsg pattern coerceInt(val, newType) |