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

lists: Add list literals. 

Fixes #2019.
vm-warnings
Doug Coleman 2018-07-13 20:36:07 -05:00
parent 4b614cc15b
commit ae74a794e1
2 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
basis/lists/lists.factor
View File

@ -1,7 +1,7 @@
! Copyright (C) 2008 James Cash, Daniel Ehrenberg, Chris Double.
! See http://factorcode.org/license.txt for BSD license.
USING: accessors combinators.short-circuit kernel locals math
sequences ;
parser sequences ;
IN: lists
! List Protocol
@ -102,3 +102,7 @@ INSTANCE: +nil+ list
GENERIC: >list ( object -- list )
M: list >list ;
M: sequence >list sequence>list ;
SYNTAX: L{ \ } [ sequence>list ] parse-literal ;

7
basis/prettyprint/backend/backend.factor
View File

@ -3,8 +3,8 @@
USING: accessors arrays assocs byte-arrays byte-vectors classes
classes.algebra.private classes.maybe classes.private
classes.tuple combinators continuations effects generic
hash-sets hashtables io.pathnames io.styles kernel make math
math.order math.parser namespaces prettyprint.config
hash-sets hashtables io.pathnames io.styles kernel lists make
math math.order math.parser namespaces prettyprint.config
prettyprint.custom prettyprint.sections prettyprint.stylesheet
quotations sbufs sequences strings vectors words ;
QUALIFIED: sets
@ -213,6 +213,7 @@ M: array pprint-delims drop \ { \ } ;
M: byte-array pprint-delims drop \ B{ \ } ;
M: byte-vector pprint-delims drop \ BV{ \ } ;
M: vector pprint-delims drop \ V{ \ } ;
M: list pprint-delims drop \ L{ \ } ;
M: hashtable pprint-delims drop \ H{ \ } ;
M: tuple pprint-delims drop \ T{ \ } ;
M: wrapper pprint-delims drop \ W{ \ } ;
@ -227,6 +228,7 @@ M: object >pprint-sequence ;
M: vector >pprint-sequence ;
M: byte-vector >pprint-sequence ;
M: callable >pprint-sequence ;
M: list >pprint-sequence list>array ;
M: hashtable >pprint-sequence >alist ;
M: wrapper >pprint-sequence wrapped>> 1array ;
M: callstack >pprint-sequence callstack>array ;
@ -268,6 +270,7 @@ M: byte-vector pprint* pprint-object ;
nesting-limit [ dup [ 1 + ] [ f ] if* ] change
[ nesting-limit set ] curry [ ] cleanup ; inline
M: list pprint* pprint-object ;
M: hashtable pprint*
[ pprint-object ] with-extra-nesting-level ;
M: curried pprint* pprint-object ;