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

xml.data: use <vector> instead of V{ } new-sequence.

char-rename
John Benediktsson 2017-01-24 14:48:09 -08:00
parent f68502e9b5
commit 65e4c37a30
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
basis/xml/data/data.factor
View File

@ -1,9 +1,8 @@
! Copyright (C) 2005, 2009 Daniel Ehrenberg ! Copyright (C) 2005, 2009 Daniel Ehrenberg
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: kernel sequences sequences.private assocs arrays USING: accessors arrays assocs combinators
delegate.protocols delegate vectors accessors multiline combinators.short-circuit delegate delegate.protocols fry kernel
macros words quotations combinators slots fry strings macros sequences slots strings vectors words ;
combinators.short-circuit ;
IN: xml.data IN: xml.data
TUPLE: interpolated var ; TUPLE: interpolated var ;
@ -52,7 +51,7 @@ M: attrs set-at
] if* ; ] if* ;
M: attrs assoc-size alist>> length ; M: attrs assoc-size alist>> length ;
M: attrs new-assoc drop V{ } new-sequence <attrs> ; M: attrs new-assoc drop <vector> <attrs> ;
M: attrs >alist alist>> ; M: attrs >alist alist>> ;
: >attrs ( assoc -- attrs ) : >attrs ( assoc -- attrs )