help.syntax: use split-lines for now.

Perhaps we remove common blank prefixes instead so that indentation is
still supported.

diff --git a/basis/help/syntax/syntax.factor b/basis/help/syntax/syntax.factor
index da04d1109a3c6849fd4238df113c71fcd1aed8c3..0c098fc383e85023c34e5587aaf0da6be46d31db 100644 (file)
--- a/basis/help/syntax/syntax.factor
+++ b/basis/help/syntax/syntax.factor
@@ -81,11 +81,8 @@ DEFER: HELP{
         ] if
     ] produce nip ;
 
-: code-lines ( str -- seq )
-    split-lines [ [ ascii:blank? ] trim ] map harvest ;
-
 : make-example ( str -- seq )
-    code-lines dup { [ array? ] [ length 1 > ] } 1&& [
+    split-lines dup { [ array? ] [ length 1 > ] } 1&& [
         dup length 1 - over [ unescape-string ] change-nth
         \ $example prefix
     ] when ;
@@ -96,7 +93,7 @@ DEFER: HELP{
 
 : parse-help-code ( -- seq )
     \ } parse-until dup { [ length 1 = ] [ first string? ] } 1&&
-    [ first code-lines ] [ >array ] if ;
+    [ first split-lines ] [ >array ] if ;
 
 : help-text? ( word -- ? )
     {