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 | |
| parent | f2ed2477feacf51988c6bfd96b487d7261267a28 (diff) | |
| download | open-axiom-cf37c5138205fd23e94e51a099a8d7735651ca8f.tar.gz | |
Fix SF/1850071
* algebra/syntax.spad (compound?$Syntax): New.
Diffstat (limited to 'src')
| -rw-r--r-- | src/ChangeLog | 5 | ||||
| -rw-r--r-- | src/algebra/syntax.spad | 6 |
2 files changed, 11 insertions, 0 deletions
diff --git a/src/ChangeLog b/src/ChangeLog index fafaf259..55fb4d2b 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,5 +1,10 @@ 2008-01-15 Gabriel Dos Reis <gdr@cs.tamu.edu> + Fix SF/1850071 + * algebra/syntax.spad (compound?$Syntax): New. + +2008-01-15 Gabriel Dos Reis <gdr@cs.tamu.edu> + * algebra/boolean.spad.pamphlet (PropositionalLogic): New category. (Boolean): Assert as belonging to PropositionalLogic. Update cached Lisp translation. 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 |