From 596bedea25563749c1b6d169377ff7e858da3b0e Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Sat, 23 Apr 2016 13:00:03 -0700 Subject: [PATCH] vlists: fix >alist so pprint works properly for valist. --- basis/vlists/vlists.factor | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/basis/vlists/vlists.factor b/basis/vlists/vlists.factor index 79870b483f..fc680f4a9c 100644 --- a/basis/vlists/vlists.factor +++ b/basis/vlists/vlists.factor @@ -1,8 +1,8 @@ ! Copyright (C) 2008 Slava Pestov. ! See http://factorcode.org/license.txt for BSD license. -USING: arrays accessors sequences sequences.private -persistent.sequences assocs persistent.assocs kernel math -vectors parser prettyprint.custom ; +USING: accessors assocs grouping kernel math parser +persistent.assocs persistent.sequences prettyprint.custom +sequences sequences.private vectors ; IN: vlists TUPLE: vlist @@ -77,7 +77,8 @@ M: valist at* M: valist new-at vlist>> ppush ppush valist boa ; -M: valist >alist vlist>> ; +M: valist >alist + vlist>> 2 [ { } like ] map ; : >valist ( assoc -- valist ) >alist concat >vlist valist boa ; inline