From c6121e5cd1f72acb51b8018edddc92093348ed87 Mon Sep 17 00:00:00 2001
From: Koichi Nakamura <koichi@idein.jp>
Date: Sat, 15 Jan 2022 15:39:57 +0900
Subject: [PATCH] fix open-file

---
 bootstrap.fs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/bootstrap.fs b/bootstrap.fs
index b288229..4b18a31 100644
--- a/bootstrap.fs
+++ b/bootstrap.fs
@@ -2527,7 +2527,7 @@ need-defined (write)
 need-defined (read)
 
 : open-file ( c-addr fam -- file e )
-    2dup (open) dup -1 = if
+    2dup (open) dup 0< if
         ( c-addr fam fd )
         3drop 0 OPEN-FILE-ERROR exit
     then