diff --git a/mats/format.ms b/mats/format.ms index d8a07ec3f..f5b5fc0eb 100644 --- a/mats/format.ms +++ b/mats/format.ms @@ -1461,10 +1461,10 @@ (mat format-slib17 ; variable parameter (equal? (format "~va" 10 "abc") "abc ") - (equal? (format "~Va" 10 "abc") "abc ") ; Let's test uppercase V too. + (equal? (format "~Va" 10 "abc") "abc ") ; changed 42 to #\* below (equal? (format "~v,,,va" 10 #\* "abc") "abc*******") - (equal? (format "~V,,,Va" 10 #\* "abc") "abc*******") ; Let's test uppercase V too. + (equal? (format "~V,,,Va" 10 #\* "abc") "abc*******") ) (mat format-slib18 ; number of remaining arguments as parameter