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 | |
| 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')
| -rw-r--r-- | src/ChangeLog | 5 | ||||
| -rw-r--r-- | src/interp/c-util.boot | 2 |
2 files changed, 6 insertions, 1 deletions
diff --git a/src/ChangeLog b/src/ChangeLog index 4f9cc3c7..c29408c4 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,5 +1,10 @@ 2011-03-10 Gabriel Dos Reis <gdr@cs.tamu.edu> + * interp/c-util.boot (equalFormTemplate): Tidy comparison of value + argument to constructors. + +2011-03-10 Gabriel Dos Reis <gdr@cs.tamu.edu> + * interp/c-util.boot (mutateArgumentList): New. (inlineDirectCall): Break out of replaceSimpleFunctions. (resolveIndirectCall): Break out of foldSpadcall. 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 |