develooper Front page | perl.cvs.parrot | Postings from November 2008

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

From:
bernhard
Date:
November 13, 2008 02:49
Subject:
[svn:parrot] r32602 - in trunk/languages: . lazy-k
Message ID:
20081113104900.29B14CB9AF@x12.develooper.com
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: lt@toetsch.at
+
+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)



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About