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

[svn:parrot] r32599 - in trunk/languages/markdown: . src

From:
fperrad
Date:
November 13, 2008 02:40
Subject:
[svn:parrot] r32599 - in trunk/languages/markdown: . src
Message ID:
20081113104046.CEC8DCB9AF@x12.develooper.com
Author: fperrad
Date: Thu Nov 13 02:40:38 2008
New Revision: 32599

Modified:
   trunk/languages/markdown/markdown.pir
   trunk/languages/markdown/src/Compiler.pir
   trunk/languages/markdown/src/Node.pir

Log:
[Markdown]
use .tailcall

Modified: trunk/languages/markdown/markdown.pir
==============================================================================
--- trunk/languages/markdown/markdown.pir	(original)
+++ trunk/languages/markdown/markdown.pir	Thu Nov 13 02:40:38 2008
@@ -74,7 +74,7 @@
     .param pmc adverbs         :slurpy :named
 
     $P0 = new ['Markdown';'HTML';'Compiler']
-    .return $P0.'to_html'(source, adverbs :flat :named)
+    .tailcall $P0.'to_html'(source, adverbs :flat :named)
 .end
 
 

Modified: trunk/languages/markdown/src/Compiler.pir
==============================================================================
--- trunk/languages/markdown/src/Compiler.pir	(original)
+++ trunk/languages/markdown/src/Compiler.pir	Thu Nov 13 02:40:38 2008
@@ -26,7 +26,7 @@
     .param pmc past
     .param pmc adverbs         :slurpy :named
 
-    .return self.'html'(past)
+    .tailcall self.'html'(past)
 .end
 
 .sub 'xml_escape' :anon
@@ -69,7 +69,7 @@
 
 .sub 'html' :method :multi(_,_)
     .param pmc node
-    .return self.'html_children'(node)
+    .tailcall self.'html_children'(node)
 .end
 
 
@@ -79,7 +79,7 @@
 
 .sub 'html' :method :multi(_,['Markdown';'Document'])
     .param pmc node
-    .return self.'html_children'(node)
+    .tailcall self.'html_children'(node)
 .end
 
 

Modified: trunk/languages/markdown/src/Node.pir
==============================================================================
--- trunk/languages/markdown/src/Node.pir	(original)
+++ trunk/languages/markdown/src/Node.pir	Thu Nov 13 02:40:38 2008
@@ -40,7 +40,7 @@
 .sub 'text' :method
     .param pmc value           :optional
     .param int has_value       :opt_flag
-    .return self.'attr'('text', value, has_value)
+    .tailcall self.'attr'('text', value, has_value)
 .end
 
 
@@ -49,7 +49,7 @@
 .sub 'level' :method
     .param pmc value           :optional
     .param int has_value       :opt_flag
-    .return self.'attr'('level', value, has_value)
+    .tailcall self.'attr'('level', value, has_value)
 .end
 
 



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