From f05418b338692fb64daa61723fd5fa491bf630e8 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Mon, 6 Jun 2016 11:10:01 -0700 Subject: [PATCH] modern.out: Fix nested stack effects. --- core/modern/out/out-tests.factor | 3 +++ core/modern/out/out.factor | 2 +- 2 files changed, 4 insertions(+), 1 deletion(-) diff --git a/core/modern/out/out-tests.factor b/core/modern/out/out-tests.factor index dfdcd670a7..9fb14cf93c 100644 --- a/core/modern/out/out-tests.factor +++ b/core/modern/out/out-tests.factor @@ -54,3 +54,6 @@ in: modern.out.tests */ ! lexable-paths [ transform-single-line-comment>hash-comment ] rewrite-paths + +{ t } +[ "( a: ( quot: ( b -- c ) -- d ) -- e )" [ [ ] rewrite-string ] keep sequence= ] unit-test \ No newline at end of file diff --git a/core/modern/out/out.factor b/core/modern/out/out.factor index f6f55df5e5..3b3ea6b710 100644 --- a/core/modern/out/out.factor +++ b/core/modern/out/out.factor @@ -33,7 +33,7 @@ M: single-matched-literal write-literal [ tag>> write ] [ seq>> 1 swap nth write-whitespace ] [ 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 ] [ closing-tag>> write ] } cleave ;