From 835006eb03caeae86ef84d094f5b878cf16aad47 Mon Sep 17 00:00:00 2001
From: Igor Pashev <pashev.igor@gmail.com>
Date: Sun, 13 Nov 2022 12:18:38 +0200
Subject: Update Forth

No crash on empty list.
---
 gcd.fs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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
-- 
cgit v1.2.3