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

modern.out: Fix using

modern-harvey2
Doug Coleman 2018-08-02 08:49:20 -04:00
parent acc5dc6add
commit 1a57f8180a
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1,6 +1,10 @@
! Copyright (C) 2017 Doug Coleman. ! Copyright (C) 2017 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors arrays assocs combinators.short-circuit ; USING: accessors arrays assocs combinators.short-circuit
constructors continuations io io.encodings.utf8 io.files
io.streams.string kernel modern modern.paths modern.slices
prettyprint sequences sequences.extras splitting strings
vocabs.loader ;
IN: modern.out IN: modern.out
: token? ( obj -- ? ) : token? ( obj -- ? )
@ -17,7 +21,7 @@ CONSTRUCTOR: <renamed> renamed ( slice string -- obj ) ;
: write-whitespace ( last obj -- ) : write-whitespace ( last obj -- )
swap swap
[ swap slice-between ] [ slice-before ] if* [ swap slice-between ] [ slice-before ] if*
trim-before-newline io::write ; trim-before-newline io:write ;
GENERIC: write-literal* ( last obj -- last' ) GENERIC: write-literal* ( last obj -- last' )
M: slice write-literal* [ write-whitespace ] [ write ] [ ] tri ; M: slice write-literal* [ write-whitespace ] [ write ] [ ] tri ;