[svn:parrot] r48130 - trunk/examples/languages/squaak/src/Squaak

[tcurtis at svn.parrot.org]

Author: tcurtis
Date: Tue Jul 20 18:01:22 2010
New Revision: 48130
URL: https://trac.parrot.org/parrot/changeset/48130

Log:
[squaak] Get tests passing.

Modified:
   trunk/examples/languages/squaak/src/Squaak/Grammar.pm
   trunk/examples/languages/squaak/src/Squaak/Runtime.pm

Modified: trunk/examples/languages/squaak/src/Squaak/Grammar.pm
==============================================================================
--- trunk/examples/languages/squaak/src/Squaak/Grammar.pm	Tue Jul 20 17:20:00 2010	(r48129)
+++ trunk/examples/languages/squaak/src/Squaak/Grammar.pm	Tue Jul 20 18:01:22 2010	(r48130)
@@ -193,8 +193,8 @@
 token infix:sym<->  { <sym> <O('%additive, :pirop<sub>')> }
 token infix:sym<..> { <sym> <O('%additive, :pirop<concat>')> }
 
-token infix:sym«<» { <sym> <O('%relational, :pirop<isle iPP>')> }
-token infix:sym«<=» { <sym> <O('%relational, :pirop<islt iPP>')> }
+token infix:sym«<» { <sym> <O('%relational, :pirop<islt iPP>')> }
+token infix:sym«<=» { <sym> <O('%relational, :pirop<isle iPP>')> }
 token infix:sym«>» { <sym> <O('%relational, :pirop<isgt iPP>')> }
 token infix:sym«>=» { <sym> <O('%relational, :pirop<isge iPP>')> }
 token infix:sym«==» { <sym> <O('%relational, :pirop<iseq iPP>')> }

Modified: trunk/examples/languages/squaak/src/Squaak/Runtime.pm
==============================================================================
--- trunk/examples/languages/squaak/src/Squaak/Runtime.pm	Tue Jul 20 17:20:00 2010	(r48129)
+++ trunk/examples/languages/squaak/src/Squaak/Runtime.pm	Tue Jul 20 18:01:22 2010	(r48130)
@@ -17,5 +17,5 @@
 
 sub print(*@args) {
     pir::say(pir::join('', @args));
-    null;
+    pir::return();
 }