diff --git a/basis/multiline/multiline-tests.factor b/basis/multiline/multiline-tests.factor index 25610ed660..ad624dd917 100644 --- a/basis/multiline/multiline-tests.factor +++ b/basis/multiline/multiline-tests.factor @@ -8,17 +8,6 @@ bar ; [ "foo\nbar\n" ] [ test-it ] unit-test -[ "foo\nbar\n" ] [ <" foo -bar -"> ] unit-test - -[ "hello\nworld" ] [ <" hello -world"> ] unit-test - -[ "hello" "world" ] [ <" hello"> <" world"> ] unit-test - -[ "\nhi" ] [ <" -hi"> ] unit-test ! HEREDOC: diff --git a/basis/xml/syntax/syntax-docs.factor b/basis/xml/syntax/syntax-docs.factor index d0e09663e4..3b506c0501 100644 --- a/basis/xml/syntax/syntax-docs.factor +++ b/basis/xml/syntax/syntax-docs.factor @@ -54,6 +54,7 @@ $nl "one two three" " " split [ [XML <-> XML] ] map <-> XML> pprint-xml""" + """ @@ -83,6 +84,7 @@ $nl string=<-string-> word=<-word-> /> XML> pprint-xml ]""" + """ """ } "XML interpolation can also be used, in conjunction with " { $vocab-link "inverse" } " in pattern matching. For example:" @@ -94,7 +96,8 @@ $nl { [ [XML XML] ] [ "yes" ] } { [ [XML /> XML] ] [ "no" prepend ] } } switch ; -[XML pple XML] dispatch write""" "apple" } ; +[XML pple XML] dispatch write""" +"apple" } ; HELP: XML-NS: { $syntax "XML-NS: name http://url" }