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

modern.out: Fix nested stack effects.

locals-and-roots
Doug Coleman 2016-06-06 11:10:01 -07:00
parent 82a1142c41
commit f05418b338
2 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
core/modern/out/out-tests.factor
View File

@ -54,3 +54,6 @@ in: modern.out.tests
*/ */
! lexable-paths [ transform-single-line-comment>hash-comment ] rewrite-paths ! lexable-paths [ transform-single-line-comment>hash-comment ] rewrite-paths
{ t }
[ "( a: ( quot: ( b -- c ) -- d ) -- e )" [ [ ] rewrite-string ] keep sequence= ] unit-test

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

@ -33,7 +33,7 @@ M: single-matched-literal write-literal
[ tag>> write ] [ tag>> write ]
[ 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 ] ! don't need write-whitespace here, the recursion does it
[ seq>> 3 swap nth lexed-underlying write-whitespace ] [ seq>> 3 swap nth lexed-underlying write-whitespace ]
[ closing-tag>> write ] [ closing-tag>> write ]
} cleave ; } cleave ;