diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-07-03 22:38:06 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-07-03 22:38:06 +0000 |
| commit | 80f914241a6f9a356f539e6451d88dfdade2e7ea (patch) | |
| tree | c046d87b3765d630f0d094769528be76dc1890ff /src/algebra/syntax.spad.pamphlet | |
| parent | 7d7446e578326a98fe8c47a86fadad4e5f5f2de2 (diff) | |
| download | open-axiom-80f914241a6f9a356f539e6451d88dfdade2e7ea.tar.gz | |
Fix AW/428
* algebra/syntax.spad.pamphlet (ConstructorCall): Now a member of
SetCategory.
(Domain): Likewise.
* share/algebra: Update databases.
* testsuite/interpreter/aw-428.input: New.
Diffstat (limited to 'src/algebra/syntax.spad.pamphlet')
| -rw-r--r-- | src/algebra/syntax.spad.pamphlet | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/src/algebra/syntax.spad.pamphlet b/src/algebra/syntax.spad.pamphlet index 365cac19..40b2f066 100644 --- a/src/algebra/syntax.spad.pamphlet +++ b/src/algebra/syntax.spad.pamphlet @@ -217,21 +217,20 @@ Syntax(): Public == Private where )abbrev domain CTORCALL ConstructorCall ++ Author: Gabriel Dos Reis ++ Date Created: January 19, 2008 -++ Date Last Updated: January 19, 2008 +++ Date Last Updated: July 03, 2008 ++ Description: This domains represents a syntax object that ++ designates a category, domain, or a package. ++ See Also: Syntax, Domain ConstructorCall(): Public == Private where - Public ==> CoercibleTo OutputForm with + Public == SetCategory with constructorName: % -> Symbol ++ constructorName c returns the name of the constructor arguments: % -> List Syntax ++ arguments returns the list of syntax objects for the ++ arguments used to invoke the constructor. - Private ==> add - rep(x: %): List Syntax == - x pretend List(Syntax) + Private == add + Rep == List Syntax constructorName x == (first rep x)::Symbol @@ -239,6 +238,9 @@ ConstructorCall(): Public == Private where arguments x == rest rep x + x = y == + rep x = rep y + coerce x == outputDomainConstructor(x)$Lisp @ |