perl.cvs.parrot
[Top] [All Lists]

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

Subject: [svn:parrot] r35346 - trunk/languages/befunge
From:
Date: Sat, 10 Jan 2009 10:02:20 -0800 PST
Newsgroups: perl.cvs.parrot

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
 
 

<Prev in Thread] Current Thread [Next in Thread>
  • [svn:parrot] r35346 - trunk/languages/befunge, jquelin <=