[befunge] concat_s_s is gone

parrot · Dec 26, 2010 · f4f7e83 · f4f7e83
1 parent eed5842
commit f4f7e83
Show file tree

Hide file tree

Showing 3 changed files with 9 additions and 9 deletions.
diff --git a/examples/pir/befunge/debug.pir b/examples/pir/befunge/debug.pir
@@ -144,7 +144,7 @@
 
     playfield = get_global "playfield"
     divider = repeat '-', 82
-    concat divider, "\n"
+    divider = concat divider, "\n"
     print divider
 
     $I0 = 0
@@ -156,11 +156,11 @@
     if $I1 >= 80 goto DEBUG__DUMP_PLAYFIELD__EOL
     $I2 = playfield[$I0;$I1]
     $S0 = chr $I2
-    concat line, $S0
+    line = concat line, $S0
     inc $I1
     goto DEBUG__DUMP_PLAYFIELD__NEXT_CHAR
   DEBUG__DUMP_PLAYFIELD__EOL:
-    concat line, "|\n"
+    line = concat line, "|\n"
     print line
     inc $I0
     goto DEBUG__DUMP_PLAYFIELD__NEXT_LINE
@@ -286,8 +286,8 @@
     y = status["y"]
     $S0 = x
     $S1 = y
-    concat $S0, ","
-    concat $S0, $S1
+    $S0 = concat $S0, ","
+    $S0 = concat $S0, $S1
     $I0 = exists breakpoints[$S0]
     if $I0 == 0 goto DEBUG__CHECK_BREAKPOINT__ROW
     _debug__interact()
@@ -296,7 +296,7 @@
   DEBUG__CHECK_BREAKPOINT__ROW:
     $S0 = "r:"
     $S1 = y
-    concat $S0, $S1
+    $S0 = concat $S0, $S1
     $I0 = exists breakpoints[$S0]
     if $I0 == 0 goto DEBUG__CHECK_BREAKPOINT__COL
     _debug__interact()
@@ -305,7 +305,7 @@
   DEBUG__CHECK_BREAKPOINT__COL:
     $S0 = "c:"
     $S1 = x
-    concat $S0, $S1
+    $S0 = concat $S0, $S1
     $I0 = exists breakpoints[$S0]
     if $I0 == 0 goto DEBUG__CHECK_BREAKPOINT__END
     _debug__interact()

diff --git a/examples/pir/befunge/io.pir b/examples/pir/befunge/io.pir
@@ -86,7 +86,7 @@
     $S1 = substr $S0, i, 1
     if $S1 < '0' goto _IO__INPUT_INT__NAN
     if $S1 > '9' goto _IO__INPUT_INT__NAN
-    concat buf, $S1
+    buf = concat buf, $S1
     inc i
     if i < len goto _IO__INPUT_INT__NEXT_CHAR
 

diff --git a/examples/pir/befunge/load.pir b/examples/pir/befunge/load.pir
@@ -82,7 +82,7 @@
 
     # padding with spaces to 80 chars if needed
     $S0 = repeat ' ', 80
-    concat str, $S0
+    str = concat str, $S0
 
     # truncate to 80 chars
     str = replace str, 80, -1, ''