From a963a9c24be0b772daea87d1958188ff32fd081d Mon Sep 17 00:00:00 2001
From: Koichi Nakamura <koichi@idein.jp>
Date: Thu, 31 Dec 2020 06:37:08 +0900
Subject: [PATCH] Add "~"

---
 core.fs | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

diff --git a/core.fs b/core.fs
index 05eec3b..fbf572a 100644
--- a/core.fs
+++ b/core.fs
@@ -177,5 +177,16 @@ c}  i,
     'e,
 l!
 
-kA kB { t } t
+
+\ '~' ( a b -- b a ) SWAP
+c~ i,
+    'd, 'C, '+, '@, \ ( a b a )
+    '{,             \ ( a b , R:a )
+    'd, 'C, '+,     \ ( a b sp+1 , R:a )
+    '!,             \ ( b , R:a )
+    '},             \ ( b a )
+    'e,
+l!
+
+kA kB ~ t t \ AB
 Q