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

modern.out: maybe simplify

modern-harvey2
Doug Coleman 2017-08-27 15:09:35 -05:00
parent 14139f8fad
commit 199e710597
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
extra/modern/out/out.factor
View File

@ -11,17 +11,18 @@ IN: modern.out
{ char: \r char: \n } member?
[ tail-slice ] [ drop ] if ;
: write-whitespace ( obj last -- )
: write-whitespace ( last obj -- )
swap
[ swap slice-between ] [ slice-before ] if*
trim-before-newline io:write ;
GENERIC#: write-literal* 1 ( obj last -- last' )
M: slice write-literal* [ write-whitespace ] [ drop write ] [ drop ] 2tri ;
M: array write-literal* swap [ swap write-literal* ] each ;
GENERIC: write-literal* ( last obj -- last' )
M: slice write-literal* [ write-whitespace ] [ write ] [ ] tri ;
M: array write-literal* [ write-literal* ] each ;
! M: string write-literal* drop [ write ] keep ; ! for refactoring
! Start with no slice as ``last``
: write-literal ( obj -- ) f write-literal* drop ;
: write-literal ( obj -- ) f swap write-literal* drop ;
: write-modern-string ( seq -- string )
[ write-literal ] with-string-writer ; inline