diff -r 683a52b52f50 -r 05d01dd462f6 CompiledCode.st --- a/CompiledCode.st Fri Aug 18 00:50:40 2000 +0200 +++ b/CompiledCode.st Fri Aug 18 22:05:21 2000 +0200 @@ -1519,7 +1519,7 @@ ! referencesLiteral:aLiteral - "return true, if this method references the given literal (directly)." + "return true, if this method references the given literal directly (i.e. a flat search)." |lit| @@ -1538,11 +1538,12 @@ "Modified: / 24.6.1996 / 15:41:59 / stefan" "Created: / 28.10.1997 / 13:09:40 / cg" + "Modified: / 18.8.2000 / 21:18:51 / cg" ! refersToLiteral:aLiteral "return true if the receiver or recursively any array element in the - receiver refers to aLiteral" + receiver refers to aLiteral (i.e. a deep search)" self literalsDo: [ :el | el == aLiteral ifTrue:[^true]. @@ -1558,11 +1559,12 @@ " "Modified: / 3.3.1998 / 00:02:28 / stefan" + "Modified: / 18.8.2000 / 21:17:47 / cg" ! ! !CompiledCode class methodsFor:'documentation'! version - ^ '$Header: /cvs/stx/stx/libbasic/CompiledCode.st,v 1.78 2000-08-17 22:13:27 cg Exp $' + ^ '$Header: /cvs/stx/stx/libbasic/CompiledCode.st,v 1.79 2000-08-18 20:04:49 cg Exp $' ! ! CompiledCode initialize!