[svn:parrot] r34669 - trunk/runtime/parrot/library

Author: coke
Date: Tue Dec 30 13:04:05 2008
New Revision: 34669

Modified:
   trunk/runtime/parrot/library/JSON.pir

Log:
take advantage of calling conventions and an opcode that probably didn't exist when this written.



Modified: trunk/runtime/parrot/library/JSON.pir
==============================================================================
--- trunk/runtime/parrot/library/JSON.pir	(original)
+++ trunk/runtime/parrot/library/JSON.pir	Tue Dec 30 13:04:05 2008
@@ -123,18 +123,15 @@
 .end
 
 .sub '_json_string'
-  .param pmc thing
+  .param string thing
   .param int pretty
   .param int indent
 
   .local string result
 
-  $S0 = thing
-  .local pmc escaper
-  escaper = find_global "Data::Escape", "String"
-  $S0 = escaper($S0,'"')
+  thing = escape thing
 
-  result = '"' . $S0
+  result = '"' . thing
   result = result . '"'
 
   unless pretty goto plain

• [svn:parrot] r34669 - trunk/runtime/parrot/library by coke