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

modern.out: fix scope

modern-harvey2
Doug Coleman 2017-12-29 11:09:46 -08:00
parent 63837139cd
commit 957733a147
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/modern/out/out.factor
View File

@ -21,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 ;