diff --git a/src/MiniDocs/LeDatabase.extension.st b/src/MiniDocs/LeDatabase.extension.st index 3c29a07..9cc1035 100644 --- a/src/MiniDocs/LeDatabase.extension.st +++ b/src/MiniDocs/LeDatabase.extension.st @@ -35,10 +35,10 @@ LeDatabase >> addPageFromMarkdeep: markdeepDocTree withRemote: externalDocLocati latestEditTime: (LeTime new time: (remoteMetadata at: 'modified') asDateAndTime); createEmail: (remoteMetadata at: 'creator'); editEmail: (remoteMetadata at: 'modifier'). - snippets do: [ :snippet | | currentParent | + snippets do: [ :snippet | "| currentParent |" page addSnippet: snippet. - currentParent := page detectParentSnippetWithUid: (snippet metadata at: 'parent'). - snippet parent: currentParent. + "currentParent := page detectParentSnippetWithUid: (snippet metadata at: 'parent'). + snippet parent: currentParent." ]. page children do: [ :snippet | diff --git a/src/MiniDocs/OrderedDictionary.extension.st b/src/MiniDocs/OrderedDictionary.extension.st index 5454996..fca93a2 100644 --- a/src/MiniDocs/OrderedDictionary.extension.st +++ b/src/MiniDocs/OrderedDictionary.extension.st @@ -26,8 +26,8 @@ OrderedDictionary >> asLepiterSnippet [ editTime: (LeTime new time: ((self at: 'modified') asDateAndTime)); editEmail: (self at: 'modifier'); createEmail: (self at: 'creator'). - response metadata at: 'origin' ifPresent: [ response metadata at: 'origin' put: (self at: 'origin') ]. - response metadata at: 'errata' ifPresent: [ response metadata at: 'errata' put: (self at: 'errata') ]. + self at: 'origin' ifPresent: [ response metadata at: 'origin' put: (self at: 'origin') ]. + self at: 'errata' ifPresent: [ response metadata at: 'errata' put: (self at: 'errata') ]. ^ response ]