Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

[lazy-k] .return -> .tailcall

git-svn-id: http://svn.perl.org/parrot/trunk@32602 d31e2699-5ff4-0310-a27c-f18f2fbe73fe
  • Loading branch information...
commit e81c521ee2a2a649057a692243949d574244ba1b 1 parent 884e29d
bernhard authored
Showing with 8 additions and 6 deletions.
  1. +2 −0  MAINTAINER
  2. +6 −6 lazy.pir
View
2  MAINTAINER
@@ -2,3 +2,5 @@
N: Leopold Toetsch
E: lt@toetsch.at
+
+A new maintainer is sought.
View
12 lazy.pir
@@ -96,14 +96,14 @@ put:
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 @@ err:
.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 @@ err:
.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 @@ err:
.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 @@ loop:
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)
Please sign in to comment.
Something went wrong with that request. Please try again.