steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

vlists: fix >alist so pprint works properly for valist.

locals-and-roots
John Benediktsson 2016-04-23 13:00:03 -07:00
parent abf4ca20c2
commit 596bedea25
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
basis/vlists/vlists.factor
View File

@ -1,8 +1,8 @@
! Copyright (C) 2008 Slava Pestov. ! Copyright (C) 2008 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: arrays accessors sequences sequences.private USING: accessors assocs grouping kernel math parser
persistent.sequences assocs persistent.assocs kernel math persistent.assocs persistent.sequences prettyprint.custom
vectors parser prettyprint.custom ; sequences sequences.private vectors ;
IN: vlists IN: vlists
TUPLE: vlist TUPLE: vlist
@ -77,7 +77,8 @@ M: valist at*
M: valist new-at M: valist new-at
vlist>> ppush ppush valist boa ; vlist>> ppush ppush valist boa ;
M: valist >alist vlist>> ; M: valist >alist
vlist>> 2 <groups> [ { } like ] map ;
: >valist ( assoc -- valist ) : >valist ( assoc -- valist )
>alist concat >vlist valist boa ; inline >alist concat >vlist valist boa ; inline