From 9eecc146bb90dc1296ca74613108c37e57b496a8 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Mon, 14 Dec 2020 13:21:44 -0800
Subject: [PATCH] sequences.extras: fix pad-center output type.

---
 extra/sequences/extras/extras.factor | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/extra/sequences/extras/extras.factor b/extra/sequences/extras/extras.factor
index 2746c0d733..be95883f3b 100644
--- a/extra/sequences/extras/extras.factor
+++ b/extra/sequences/extras/extras.factor
@@ -63,7 +63,8 @@ IN: sequences.extras
 
 : pad-center ( seq n elt -- padded )
     swap pick length [-] [ drop ] [
-        [ 2/ ] [ over - ] bi rot '[ _ <repetition> ] bi@ surround
+        [ 2/ ] [ over - ] bi rot '[ _ <repetition> ] bi@
+        pick surround-as
     ] if-zero ;
 
 : change-nths ( ... indices seq quot: ( ... elt -- ... elt' ) -- ... )
-- 
2.34.1