diff options
author | dos-reis <gdr@axiomatics.org> | 2008-01-16 05:50:37 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2008-01-16 05:50:37 +0000 |
commit | cf37c5138205fd23e94e51a099a8d7735651ca8f (patch) | |
tree | 35b41cc896a89bfd131a55e0fe0a45e19412fcac /src/algebra/syntax.spad | |
parent | f2ed2477feacf51988c6bfd96b487d7261267a28 (diff) | |
download | open-axiom-cf37c5138205fd23e94e51a099a8d7735651ca8f.tar.gz |
Fix SF/1850071
* algebra/syntax.spad (compound?$Syntax): New.
Diffstat (limited to 'src/algebra/syntax.spad')
-rw-r--r-- | src/algebra/syntax.spad | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/src/algebra/syntax.spad b/src/algebra/syntax.spad index d07bad13..5058dcb6 100644 --- a/src/algebra/syntax.spad +++ b/src/algebra/syntax.spad @@ -111,6 +111,9 @@ Syntax(): Public == Private where getOperands: % -> List % ++ getOperands(x) returns the list of operands to the operator in `x'. + compound?: % -> Boolean + ++ compound? x is true when not an atomic syntax. + _case: (%, [|Integer|]) -> Boolean ++ x case Integer is true is x really is an Integer @@ -208,6 +211,9 @@ Syntax(): Public == Private where float? op => float op string? op => string op convert op + + compound? x == + pair? rep x getOperands x == s := rep x |