diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-12-11 22:56:13 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-12-11 22:56:13 +0000 |
| commit | f29c37cd1b37edbc6d50181a2bbc5c6cf135dca6 (patch) | |
| tree | 6538d7bf09544ce2d922b43fb7143f8e3d753bbd | |
| parent | 98163171382f379e732d96a9a5ffc2ab492bb3b2 (diff) | |
| download | open-axiom-f29c37cd1b37edbc6d50181a2bbc5c6cf135dca6.tar.gz | |
r12440@gauss: gdr | 2008-12-11 05:38:58 -0600
Tidy resolveNiladicConstructors.
| -rw-r--r-- | src/interp/nrunfast.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/nrunfast.boot b/src/interp/nrunfast.boot index d3c03015..fa3f742c 100644 --- a/src/interp/nrunfast.boot +++ b/src/interp/nrunfast.boot @@ -597,9 +597,9 @@ resolveNiladicConstructors form == IDENTP form and niladicConstructorFromDB form => [form] atom form => form form is ["QUOTE",:.] => form - for args in tails rest type repeat + for args in tails rest form repeat rplac(first args, resolveNiladicConstructors first args) - type + form --======================================================= -- HasCategory/Attribute |