remove trailing whitespace in paragraphs

commonmark/blocks.scm

@@ -293,7 +293,7 @@
                          links))))
           (else (col (if (= (string-length text) 0)
                          #f
-                         (make-paragraph-node text)) links)))))
+                         (make-paragraph-node (string-trim-right text))) links)))))
 
 (define (remove-empty-lines node col)
   (col (make-node (node-type node) (node-data node)

tests/blocks/paragraphs.scm

@@ -72,8 +72,7 @@ bbb"
              ('paragraph _ ('text _ "bbb"))
              ('code-block _ "aaa")))
 
-(test-expect-fail 1) ;; Should trim end?
-(block-expect "parse-blocks, paragraph final spaces are stripeed before inline parsing"
+(block-expect "parse-blocks, paragraph final spaces are stripped before inline parsing"
   "aaa     
 bbb     "
   ('document _