Minor bugfixes.
This commit is contained in:
parent
2dd4377c4d
commit
daef3951b7
@ -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.
|
||||
]
|
||||
|
||||
|
@ -39,7 +39,7 @@ PPCMLink >> printOn: aStream [
|
||||
super initialize.
|
||||
^ aStream
|
||||
nextPutAll:
|
||||
self label children first text,
|
||||
self label text,
|
||||
' -> ',
|
||||
self destination
|
||||
]
|
||||
|
Loading…
Reference in New Issue
Block a user