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

Fixing cons>seq in extra/lists

db4
James Cash 2008-06-22 16:48:00 -04:00
parent a8cd6eb099
commit 82daad3375
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/lists/lists.factor
View File

@ -98,7 +98,7 @@ M: object nil? drop f ;
[ lmap>array ] dip like ; [ lmap>array ] dip like ;
: cons>seq ( cons -- array ) : cons>seq ( cons -- array )
[ dup cons? [ cons>seq ] when ] lmap>array ; [ dup cons? [ cons>seq ] when dup nil? [ drop { } ] when ] lmap>array ;
: list>seq ( list -- array ) : list>seq ( list -- array )
[ ] lmap>array ; [ ] lmap>array ;