Integer comparison: Difference between revisions

Content added Content deleted

Inline

@@ Line 196: / Line 196: @@
  : compare-integers ( a b -- )
-dup < if ." a is less than b"    2drop exit then
+dup < if ." a is less than b" then
-         > if ." a is greater than b"       exit then
+dup > if ." a is greater than b" then
-              ." a is equal to b" ;
+         = if ." a is equal to b" then ;
 =={{header|Fortran}}==