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

modern.out: fix colon word printing to not require closing.

locals-and-roots
Doug Coleman 2016-06-20 16:52:00 -07:00
parent 263b8b9507
commit 8b90c1a729
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
core/modern/out/out.factor
View File

@ -99,7 +99,7 @@ M: uppercase-colon-literal write-literal
[ seq>> 1 swap nth write-whitespace ] [ seq>> 1 swap nth write-whitespace ]
[ delimiter>> write ] [ delimiter>> write ]
[ payload>> [ write-literal ] each ] ! don't need write-whitespace here, the recursion does it [ payload>> [ write-literal ] each ] ! don't need write-whitespace here, the recursion does it
[ seq>> 3 swap nth lexed-underlying [ write-whitespace ] when* ] [ seq>> 3 swap nth [ lexed-underlying [ write-whitespace ] when* ] when* ]
[ closing-tag>> [ write ] when* ] [ closing-tag>> [ write ] when* ]
} cleave ; } cleave ;