From c92e4992ad619d1e60ff942988f748c9e90b4ce0 Mon Sep 17 00:00:00 2001
From: Koichi Nakamura <koichi@idein.jp>
Date: Wed, 5 May 2021 21:07:01 +0900
Subject: [PATCH] Add not-supported exception

---
 bootstrap.fs | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/bootstrap.fs b/bootstrap.fs
index e13d5d7..a68faa3 100644
--- a/bootstrap.fs
+++ b/bootstrap.fs
@@ -1465,6 +1465,9 @@ decimal
 s" Not implemented" exception constant NOT-IMPLEMENTED
 : not-implemented NOT-IMPLEMENTED throw ;
 
+s" Not supported" exception constant NOT-SUPPORTED
+: not-supported NOT-SUPPORTED throw ;
+
 ( 31 bytes )
 s" Not reachable here. may be a bug" exception constant NOT-REACHABLE
 : not-reachable NOT-REACHABLE throw ;