From eed1dd3d2b123fd6d6d633378232ca29d52e4e2e Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Tue, 11 Nov 2008 23:38:19 -0600 Subject: [PATCH] Fix byte vector prettyprinting --- basis/prettyprint/backend/backend.factor | 1 + core/byte-vectors/byte-vectors-tests.factor | 5 ++++- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/basis/prettyprint/backend/backend.factor b/basis/prettyprint/backend/backend.factor index b749bd63eb..31b6ba3f26 100644 --- a/basis/prettyprint/backend/backend.factor +++ b/basis/prettyprint/backend/backend.factor @@ -214,6 +214,7 @@ M: tuple pprint-narrow? drop t ; M: object pprint* pprint-object ; M: vector pprint* pprint-object ; +M: byte-vector pprint* pprint-object ; M: hashtable pprint* pprint-object ; M: curry pprint* diff --git a/core/byte-vectors/byte-vectors-tests.factor b/core/byte-vectors/byte-vectors-tests.factor index d457d6805e..9a100d9795 100644 --- a/core/byte-vectors/byte-vectors-tests.factor +++ b/core/byte-vectors/byte-vectors-tests.factor @@ -1,5 +1,6 @@ IN: byte-vectors.tests -USING: tools.test byte-vectors vectors sequences kernel ; +USING: tools.test byte-vectors vectors sequences kernel +prettyprint ; [ 0 ] [ 123 length ] unit-test @@ -12,3 +13,5 @@ USING: tools.test byte-vectors vectors sequences kernel ; ] unit-test [ t ] [ BV{ } byte-vector? ] unit-test + +[ "BV{ }" ] [ BV{ } unparse ] unit-test