instruction ` is greater than, not greater than or equal

this fixes the "bad: sgml spaces" report from mycology git-svn-id: https://svn.parrot.org/parrot/trunk@35346 d31e2699-5ff4-0310-a27c-f18f2fbe73fe
ashgti · Jan 10, 2009 · d090f4a · d090f4a
1 parent e77fbea
commit d090f4a
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/languages/befunge/flow.pir b/languages/befunge/flow.pir
@@ -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