Improving metadata cleaning.

2022-02-11 15:56:21 -05:00 · 2022-02-11 15:56:21 -05:00 · 19ce9f87b2
parent bac482eab8
commit 19ce9f87b2
1 changed files with 3 additions and 1 deletions
--- a/repository/Grafoscopio-Utils/LePage.extension.st
+++ b/repository/Grafoscopio-Utils/LePage.extension.st
@ -121,5 +121,7 @@ LePage >> preorderTraversal [

 { #category : #'*Grafoscopio-Utils-Core' }
 LePage >> removeSnippetsMetadata [
-	self preorderTraversal do: [ :snippet | snippet options removeKey: 'metadata' ]
+	self preorderTraversal do: [ :snippet | 
+		(snippet options isNotNil and: [ snippet options includesKey: 'metadata' ]) 
+			ifTrue: [ snippet options removeKey: 'metadata' ] ]
 ]