diff options
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 |