Fixing bad use of asPoint. I do not want to pay twice for the same se…

[Ducasse]

…rvice.

| rewriter methods roassalPackages |

roassalPackages := PackageOrganizer default packages select: [ :e | e name beginsWith: 'Toplo-'].

methods := roassalPackages flatCollect: [:p | p methods].

rewriter := OCParseTreeRewriter new.
rewriter
    replace: '`#value `{ :node | node value isInteger } asPoint'
    with: '`#value @ `#value'.
methods do: [ :mth | 
	| tree |
	tree := mth parseTree.
(rewriter
    executeTree: tree)
ifTrue: [
        mth methodClass compile: tree formattedCode]]