diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-10-02 03:34:18 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-10-02 03:34:18 +0000 |
| commit | 6d8d9ff0d92a31b78b03b669b5ad99ef0b2715f4 (patch) | |
| tree | 3cbc7ea6690bced2ac4317a76ecf859e1dc300a2 /src/interp/i-spec2.boot | |
| parent | 481e052609b1cbc9bfbc26bd35ffe99c937b6425 (diff) | |
| download | open-axiom-6d8d9ff0d92a31b78b03b669b5ad99ef0b2715f4.tar.gz | |
* interp/i-spec1.boot (upcase): Tidy.
* interp/i-spec2.boot (evalIsntPredicate): Likewise.
* interp/sys-utility.boot (existingFile?): Likewise.
Diffstat (limited to 'src/interp/i-spec2.boot')
| -rw-r--r-- | src/interp/i-spec2.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/i-spec2.boot b/src/interp/i-spec2.boot index fb5079a6..22f97447 100644 --- a/src/interp/i-spec2.boot +++ b/src/interp/i-spec2.boot @@ -408,8 +408,8 @@ evalIsPredicate(value,pattern,mode) == false evalIsntPredicate(value,pattern,mode) == - evalIsPredicate(value,pattern,mode) => NIL - 'TRUE + evalIsPredicate(value,pattern,mode) => false + true removeConstruct pat == -- removes the "construct" from the beginning of patterns |