Minor bugfixes.
This commit is contained in:
parent
2dd4377c4d
commit
daef3951b7
@ -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.
|
||||||
]
|
]
|
||||||
|
|
||||||
|
@ -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
|
||||||
]
|
]
|
||||||
|
Loading…
Reference in New Issue
Block a user