From 10791ddc24656aaf22f65887e086fb33dfbad8de Mon Sep 17 00:00:00 2001 From: dos-reis Date: Thu, 29 May 2008 04:23:19 +0000 Subject: * interp/showimp.boot (showPredicates): Fix typo. * testsuite/interpreter/show.input: New. --- src/ChangeLog | 5 +++++ src/interp/showimp.boot | 2 +- src/testsuite/interpreter/show.input | 1 + 3 files changed, 7 insertions(+), 1 deletion(-) create mode 100644 src/testsuite/interpreter/show.input (limited to 'src') diff --git a/src/ChangeLog b/src/ChangeLog index 79cdf3dd..75ce7345 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,8 @@ +2008-05-28 Gabriel Dos Reis + + * interp/showimp.boot (showPredicates): Fix typo. + * testsuite/interpreter/show.input: New. + 2008-05-28 Gabriel Dos Reis * algebra/catdef.spad.pamphlet (OrderedMonoid): Nown 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 -- cgit v1.2.3