[svn:parrot] r32602 - in trunk/languages: . lazy-k

[bernhard]

Author: bernhard
Date: Thu Nov 13 02:48:59 2008
New Revision: 32602

Modified:
   trunk/languages/LANGUAGES_STATUS.pod
   trunk/languages/lazy-k/MAINTAINER
   trunk/languages/lazy-k/lazy.pir

Log:
[lazy-k] .return  ->  .tailcall


Modified: trunk/languages/LANGUAGES_STATUS.pod
==============================================================================
--- trunk/languages/LANGUAGES_STATUS.pod        (original)
+++ trunk/languages/LANGUAGES_STATUS.pod        Thu Nov 13 02:48:59 2008
@@ -517,10 +517,11 @@
 =item Status
 
 Working, but not complete. Part of languages smoke testing.
+A new maintainer is sought.
 
 =item Last verified with parrot version
 
-0.7.1
+0.8.0
 
 =item Location
 

Modified: trunk/languages/lazy-k/MAINTAINER
==============================================================================
--- trunk/languages/lazy-k/MAINTAINER   (original)
+++ trunk/languages/lazy-k/MAINTAINER   Thu Nov 13 02:48:59 2008
@@ -2,3 +2,5 @@
 
 N: Leopold Toetsch
 E: [EMAIL PROTECTED]
+
+A new maintainer is sought.

Modified: trunk/languages/lazy-k/lazy.pir
==============================================================================
--- trunk/languages/lazy-k/lazy.pir     (original)
+++ trunk/languages/lazy-k/lazy.pir     Thu Nov 13 02:48:59 2008
@@ -96,14 +96,14 @@
     null NUL
     k1f = new_expr(expK1, f, NUL)
 
-    .return  new_expr(expS2, k1f, g)
+    .tailcall  new_expr(expS2, k1f, g)
 .end
 
 .sub append
     .param pmc old
     .param pmc n
 
-    .return run_in_sequence(n, old)
+    .tailcall run_in_sequence(n, old)
 .end
 
 # convert expression (which sould be a churn numeral to a native int
@@ -130,7 +130,7 @@
     .param pmc list
     .local pmc k
     k = global "K"
-    .return new_apply(list, k)
+    .tailcall new_apply(list, k)
 .end
 
 # get tail of list
@@ -138,7 +138,7 @@
     .param pmc list
     .local pmc ki
     ki = global "KI"
-    .return new_apply(list, ki)
+    .tailcall new_apply(list, ki)
 .end
 
 # create globals for commonly used expressions and
@@ -201,7 +201,7 @@
     .param pmc lhs
     .param pmc rhs
 
-    .return new_expr(expA, lhs, rhs)
+    .tailcall new_expr(expA, lhs, rhs)
 .end
 
 # parse from an IO handle
@@ -221,7 +221,7 @@
     unless ch == '`' goto not_bq
        op = parse(io)
        arg = parse(io)
-       .return new_apply(op, arg)
+       .tailcall new_apply(op, arg)
 not_bq:
     unless ch == 'i' goto not_i
        .return (I)