summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--gcd.fs3
1 files changed, 2 insertions, 1 deletions
diff --git a/gcd.fs b/gcd.fs
index 1baeda0..c66f291 100644
--- a/gcd.fs
+++ b/gcd.fs
@@ -30,7 +30,8 @@
r> 1 + >r
repeat
2drop
- r> gcdn . cr
+ r>
+ dup 0 <> if gcdn . cr else drop endif
;
main bye