diff options
| -rw-r--r-- | src/ChangeLog | 5 | ||||
| -rw-r--r-- | src/interp/showimp.boot | 2 | ||||
| -rw-r--r-- | src/testsuite/interpreter/show.input | 1 |
3 files changed, 7 insertions, 1 deletions
diff --git a/src/ChangeLog b/src/ChangeLog index 79cdf3dd..75ce7345 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,5 +1,10 @@ 2008-05-28 Gabriel Dos Reis <gdr@cs.tamu.edu> + * interp/showimp.boot (showPredicates): Fix typo. + * testsuite/interpreter/show.input: New. + +2008-05-28 Gabriel Dos Reis <gdr@cs.tamu.edu> + * algebra/catdef.spad.pamphlet (OrderedMonoid): Nown OrderedSemiGroup and a Monoid. * share/algebra: Updata databases. diff --git a/src/interp/showimp.boot b/src/interp/showimp.boot index d593b847..d873129f 100644 --- a/src/interp/showimp.boot +++ b/src/interp/showimp.boot @@ -209,7 +209,7 @@ showPredicates dom == sayBrightly '"--------------------Predicate summary-------------------" conname := CAR dom.0 predvector := dom.3 - predicateList := getConstructorPredicateFromDB conname + predicateList := getConstructorPredicatesFromDB conname for i in 1.. for p in predicateList repeat prefix := testBitVector(predvector,i) => '"true : " diff --git a/src/testsuite/interpreter/show.input b/src/testsuite/interpreter/show.input new file mode 100644 index 00000000..7cf0c362 --- /dev/null +++ b/src/testsuite/interpreter/show.input @@ -0,0 +1 @@ +showSummary RomanNumeral |