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 := '' writeStream.
newContents nextPutAll: '<!--@yaml'; lf. newContents nextPutAll: '<!--@yaml'; lf.
newContents nextPutAll: self yamlMetadataString. newContents nextPutAll: self yamlMetadataString.
newContents nextPutAll: String lf.
newContents nextPutAll: '-->'; lf; lf. newContents nextPutAll: '-->'; lf; lf.
(self lines copyFrom: self yamlMetadataClosingLineNumber + 2 to: self lines size) do: [ :line | (self lines copyFrom: self yamlMetadataClosingLineNumber + 2 to: self lines size) do: [ :line |
newContents nextPutAll: line; lf;lf ]. newContents nextPutAll: line; lf ].
^ newContents contents. ^ newContents contents.
] ]

View File

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