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

Revert "lists: Add list literals." 

This reverts commit ae74a794e1.

The listener forces lazy lists, which is not what we want. We need a different approach for prettyprinting lazy lists.
handle-patch-and-put
Doug Coleman 2018-07-30 12:01:28 -05:00
parent e6e7655cbd
commit 6810fc42b0
2 changed files with 3 additions and 10 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
parser sequences ;
sequences ;
IN: lists
! List Protocol
@ -102,7 +102,3 @@ 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 lists make
math math.order math.parser namespaces prettyprint.config
hash-sets hashtables io.pathnames io.styles kernel make math
math.order math.parser namespaces prettyprint.config
prettyprint.custom prettyprint.sections prettyprint.stylesheet
quotations sbufs sequences strings vectors words ;
QUALIFIED: sets
@ -213,7 +213,6 @@ 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{ \ } ;
@ -228,7 +227,6 @@ 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 ;
@ -270,7 +268,6 @@ 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 ;