Minor bugfixes.

This commit is contained in:
Offray Vladimir Luna Cárdenas 2023-05-08 08:47:11 -05:00
parent 2dd4377c4d
commit daef3951b7
2 changed files with 2 additions and 3 deletions

View File

@ -32,10 +32,9 @@ Markdown >> commentYAMLMetadata [
newContents := '' writeStream.
newContents nextPutAll: '<!--@yaml'; lf.
newContents nextPutAll: self yamlMetadataString.
newContents nextPutAll: String lf.
newContents nextPutAll: '-->'; lf; lf.
(self lines copyFrom: self yamlMetadataClosingLineNumber + 2 to: self lines size) do: [ :line |
newContents nextPutAll: line; lf;lf ].
newContents nextPutAll: line; lf ].
^ newContents contents.
]

View File

@ -39,7 +39,7 @@ PPCMLink >> printOn: aStream [
super initialize.
^ aStream
nextPutAll:
self label children first text,
self label text,
' -> ',
self destination
]