# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1395091249 -3600
# Node ID cf4db8ac808f1e7f854b4a346529a89c50937618
# Parent  881e5090c2876614b383bdffcf1c3eabb93938d6
class: Annotation
comment/format in: #refersToLiteral:

diff -r 881e5090c287 -r cf4db8ac808f Annotation.st
--- a/Annotation.st	Mon Mar 17 22:20:38 2014 +0100
+++ b/Annotation.st	Mon Mar 17 22:20:49 2014 +0100
@@ -432,6 +432,9 @@
 !Annotation methodsFor:'queries'!
 
 refersToLiteral: anObject
+    "return true if the receiver or recursively any array element in the
+     receiver refers to aLiteral (i.e. a deep search)"
+
     (anObject == key) ifTrue:[ ^ true ].
     (anObject == arguments) ifTrue:[ ^ true ].
     arguments isArray ifTrue:[ ^ arguments refersToLiteral: anObject].
@@ -657,15 +660,15 @@
 !Annotation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Annotation.st,v 1.15 2014-02-25 12:23:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Annotation.st,v 1.16 2014-03-17 21:20:49 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Annotation.st,v 1.15 2014-02-25 12:23:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Annotation.st,v 1.16 2014-03-17 21:20:49 cg Exp $'
 !
 
 version_SVN
-    ^ '$Id: Annotation.st,v 1.15 2014-02-25 12:23:59 cg Exp $'
+    ^ '$Id: Annotation.st,v 1.16 2014-03-17 21:20:49 cg Exp $'
 ! !