develooper Front page | perl.cvs.parrot | Postings from January 2009

[svn:parrot] r35346 - trunk/languages/befunge

From:
jquelin
Date:
January 10, 2009 10:02
Subject:
[svn:parrot] r35346 - trunk/languages/befunge
Message ID:
20090110180220.292EFCB9F9@x12.develooper.com
Author: jquelin
Date: Sat Jan 10 10:02:19 2009
New Revision: 35346

Modified:
   trunk/languages/befunge/flow.pir

Log:
instruction ` is greater than, not greater than or equal

this fixes the "bad: sgml spaces" report from mycology


Modified: trunk/languages/befunge/flow.pir
==============================================================================
--- trunk/languages/befunge/flow.pir	(original)
+++ trunk/languages/befunge/flow.pir	Sat Jan 10 10:02:19 2009
@@ -95,12 +95,12 @@
     b = stack__pop()
     a = stack__pop()
 
-    if a < b goto FLOW__COMPARE__FALSE
-    stack__push(1)
+    if a > b goto FLOW__COMPARE__TRUE
+    stack__push(0)
     .return()
 
-  FLOW__COMPARE__FALSE:
-    stack__push(0)
+  FLOW__COMPARE__TRUE:
+    stack__push(1)
 .end
 
 



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