Mercurial Mercurial > hg > stx-goodies-petitparser / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Make block passed to at:ifPresent: to accept one argument
authorJan Vrany <jan.vrany@fit.cvut.cz>
Sun, 19 Apr 2015 22:28:48 +0100
changeset 431 dd353f15b0ef
parent 430 77cf8e710a8e
child 432 fde2d5969fbb
Make block passed to at:ifPresent: to accept one argument ...as St/X requires it,
compiler/PPCompiledParser.st file | annotate | diff | comparison | revisions 
--- a/compiler/PPCompiledParser.st	Sun Apr 19 22:25:38 2015 +0100
+++ b/compiler/PPCompiledParser.st	Sun Apr 19 22:28:48 2015 +0100
@@ -19,7 +19,7 @@
 !PPCompiledParser class methodsFor:'as yet unclassified'!
 
 addConstant: value as: id
-	self constants at: id ifPresent: [ 
+	self constants at: id ifPresent: [:ignored | 
 		((self constants at: id) = value) ifFalse: [self error: 'ooups']].	
 	
 	self constants at: id put: value.
hg/stx-goodies-petitparser