diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-08-04 13:56:52 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-08-04 13:56:52 +0000 |
| commit | 9a593e3b395c1ba0c6036760c12713d7485f8c54 (patch) | |
| tree | dd8eadbf07dde50ca15d6aa4181c902ad7b09d3c /src/interp/trace.boot | |
| parent | e77d30ccf1b663aaa6ec1e017fa8e31f3296afeb (diff) | |
| download | open-axiom-9a593e3b395c1ba0c6036760c12713d7485f8c54.tar.gz | |
cleanup
Diffstat (limited to 'src/interp/trace.boot')
| -rw-r--r-- | src/interp/trace.boot | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/interp/trace.boot b/src/interp/trace.boot index c689a91d..9465a19a 100644 --- a/src/interp/trace.boot +++ b/src/interp/trace.boot @@ -183,14 +183,14 @@ getTraceOption (x is [key,:l]) == key='break => null l => ['break,'before] opts := [selectOptionLC(y,'(before after),nil) for y in l] - and/[IDENTP y for y in opts] => ['break,:opts] + and/[ident? y for y in opts] => ['break,:opts] stackTraceOptionError ["S2IT0008",nil] key='restore => null l => x stackTraceOptionError ["S2IT0009",[strconc('")",object2String key)]] key='only => ['only,:transOnlyOption l] key='within => - l is [a] and IDENTP a => x + l is [a] and ident? a => x stackTraceOptionError ["S2IT0010",['")within"]] key in '(cond before after) => key:= @@ -356,9 +356,9 @@ coerceSpadFunValue2E(value) == objValUnwrap coerceInteractive(objNewWrap(value,first $tracedSpadModemap), $OutputForm) -isListOfIdentifiers l == and/[IDENTP x for x in l] +isListOfIdentifiers l == and/[ident? x for x in l] -isListOfIdentifiersOrStrings l == and/[IDENTP x or string? x for x in l] +isListOfIdentifiersOrStrings l == and/[ident? x or string? x for x in l] getMapSubNames(l) == subs:= nil |