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

[bacek at svn.parrot.org]

Author: bacek
Date: Thu May  6 15:00:29 2010
New Revision: 46362
URL: https://trac.parrot.org/parrot/changeset/46362

Log:
Don't use concat_s_s in parrotlib.pir

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

Modified: trunk/runtime/parrot/library/parrotlib.pir
==============================================================================
--- trunk/runtime/parrot/library/parrotlib.pir	Thu May  6 14:53:47 2010	(r46361)
+++ trunk/runtime/parrot/library/parrotlib.pir	Thu May  6 15:00:29 2010	(r46362)
@@ -36,8 +36,7 @@
 OKAY:
 
     # XXX: get include paths from config
-    $S0 = clone root
-    concat $S0, "/include"
+    $S0 = concat root, "/include"
     paths = new 'ResizableStringArray'
     push paths, "."
     push paths, $S0
@@ -55,7 +54,7 @@
     $P1 = clone $P0
     $P2 = new 'String'
     $S0 = shift paths
-    concat $S0, "/"
+    $S0 = concat $S0, "/"
     $P2 = $S0
     setprop $P1, "path", $P2
     push includes, $P1
@@ -134,25 +133,21 @@
     stat $I0, name, 0
     if $I0 goto END
 
-    name = clone request
-    concat name, ext
+    name = concat request, ext
     stat $I0, name, 0
     if $I0 goto END
 
-    name = "runtime/parrot/dynext/"
-    concat name, request
+    name = concat "runtime/parrot/dynext/", request
     stat $I0, name, 0
     if $I0 goto END
 
-    name = "runtime/parrot/dynext/"
-    concat name, request
-    concat name, ext
+    name = concat "runtime/parrot/dynext/", request
+    name = concat name, ext
     stat $I0, name, 0
     if $I0 goto END
 
     # file not found, give the OS a chance to locate it
-    name = clone request
-    concat name, ext
+    name = concat request, ext
 
 END:
     .begin_return
@@ -191,8 +186,7 @@
     getprop $P0, "path", $P1
     path = $P0
 
-    $S0 = clone path
-    concat $S0, name
+    $S0 = concat path, name
     stat $I0, $S0, 0
     if $I0 goto OK
     null $S0