Author: pmichaud
Date: Thu Oct 4 23:33:09 2007
New Revision: 21874
Modified:
trunk/compilers/json/JSON.pir
Log:
[json]:
* Convert 'newfrom' to 'new'.
Modified: trunk/compilers/json/JSON.pir
==============================================================================
--- trunk/compilers/json/JSON.pir (original)
+++ trunk/compilers/json/JSON.pir Thu Oct 4 23:33:09 2007
@@ -53,8 +53,8 @@
.local pmc parse, match
parse = get_root_global ['parrot'; 'JSON'], 'thing'
- $P0 = get_root_global ['parrot'; 'PGE::Match'], 'newfrom'
- match = $P0(json_string)
+ $P0 = get_root_global ['parrot'; 'PGE'], 'Match'
+ match = $P0.'new'(json_string)
match.to(0)
match = parse(match)
unless match goto failed
