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

[svn:parrot] r34216 - trunk/languages/pipp/t/embed

From:
bernhard
Date:
December 21, 2008 09:25
Subject:
[svn:parrot] r34216 - trunk/languages/pipp/t/embed
Message ID:
20081221172509.1A334CBA12@x12.develooper.com
Author: bernhard
Date: Sun Dec 21 09:25:08 2008
New Revision: 34216

Modified:
   trunk/languages/pipp/t/embed/eval.t

Log:
[Pipp] Call function defined in 'eval' in the embedder.


Modified: trunk/languages/pipp/t/embed/eval.t
==============================================================================
--- trunk/languages/pipp/t/embed/eval.t	(original)
+++ trunk/languages/pipp/t/embed/eval.t	Sun Dec 21 09:25:08 2008
@@ -28,7 +28,7 @@
     ok( 1, 'no tests implemented yet')
     # TODO:
     # find sub 'eval_string'
-    .local pmc eval_sub
+    .local pmc eval_sub, no_args_sub
     .local int ret
     eval_sub = get_hll_global [ 'Pipp' ], 'eval'
     # call it with TAP diagnostics
@@ -38,6 +38,8 @@
 
     # define a function
     # call it from here
+    no_args_sub = get_hll_global 'no_args'
+    no_args_sub()
 .end
 
 # Local Variables:



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