From d090f4aa62ec590f42b40768b744578b3611dc32 Mon Sep 17 00:00:00 2001
From: jquelin <jquelin@d31e2699-5ff4-0310-a27c-f18f2fbe73fe>
Date: Sat, 10 Jan 2009 18:02:19 +0000
Subject: [PATCH] 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
---
 languages/befunge/flow.pir | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/languages/befunge/flow.pir b/languages/befunge/flow.pir
index e33152fcd9..1a8e8f144b 100644
--- 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