diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-03-10 16:40:30 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-03-10 16:40:30 +0000 |
| commit | d39e317cd51e0f251d485df1948e2a85a4007048 (patch) | |
| tree | 6e660b65a607266d24c3ecc3b89b8a4178690172 /src/interp | |
| parent | 37bdfaff96683506efc11108cc55889d84487192 (diff) | |
| download | open-axiom-d39e317cd51e0f251d485df1948e2a85a4007048.tar.gz | |
* interp/c-util.boot (equalFormTemplate): Tidy comparison of value
argument to constructors.
Diffstat (limited to 'src/interp')
| -rw-r--r-- | src/interp/c-util.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/c-util.boot b/src/interp/c-util.boot index 40a5c8e0..7525bdb5 100644 --- a/src/interp/c-util.boot +++ b/src/interp/c-util.boot @@ -1699,7 +1699,7 @@ equalFormTemplate(shell,args,slot,form) == equalFormTemplate(shell,args,args.n,form) slot is ["NTREVAL",val] => form = val slot is ["QUOTE",val] => - string? val => val = form + string? val or symbol? val or integer? val => val = form slot = form atom slot or atom form => form = slot #slot ~= #form => false |