semantics: complements LinqLover/Squeak-SemanticText@1cbfedc (fix cor…

…pus copying)
hpi-swa-lab · Feb 9, 2024 · dbc80d3 · dbc80d3
1 parent 108a59b
commit dbc80d3
Show file tree

Hide file tree

Showing 2 changed files with 13 additions and 0 deletions.
diff --git a/...TalkExtras-Semantics.package/TalkSemanticCorpus.class/instance/postCopyAfterDocuments..st b/...TalkExtras-Semantics.package/TalkSemanticCorpus.class/instance/postCopyAfterDocuments..st
@@ -0,0 +1,12 @@
+copying
+postCopyAfterDocuments: postCopyDocumentsBlock
+
+	| documentCopies |
+	super postCopyAfterDocuments: postCopyDocumentsBlock.
+
+	documentsPerMessage ifNil: [^ self].
+
+	documentCopies := postCopyDocumentsBlock value.
+	documentsPerMessage := documentsPerMessage collect: [:oldDocuments |
+		oldDocuments collect: [:oldDocument |
+			documentCopies at: oldDocument]].
diff --git a/...es/SqueakInboxTalkExtras-Semantics.package/TalkSemanticCorpus.class/methodProperties.json b/...es/SqueakInboxTalkExtras-Semantics.package/TalkSemanticCorpus.class/methodProperties.json
@@ -20,6 +20,7 @@
 		"initializeForInbox:" : "ct 8/21/2023 00:33",
 		"knownMessages" : "ct 11/30/2023 12:00",
 		"postCopy" : "ct 12/8/2023 22:30",
+		"postCopyAfterDocuments:" : "ct 2/9/2024 14:04",
 		"readHeaderFrom:" : "ct 12/8/2023 21:58",
 		"swapInFromDisk" : "ct 11/30/2023 12:04",
 		"swapOutToDisk" : "ct 11/30/2023 12:01",