From b1ed4e474a4787f9e48a81a50e7785f8cd0afec5 Mon Sep 17 00:00:00 2001
From: Koichi Nakamura <koichi@idein.jp>
Date: Tue, 5 Jan 2021 18:19:26 +0900
Subject: [PATCH] Add rpick

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

diff --git a/bootstrap.fs b/bootstrap.fs
index 71cc2c2..5f98a9b 100644
--- a/bootstrap.fs
+++ b/bootstrap.fs
@@ -562,6 +562,11 @@ alias-builtin xor       ^
 
 : rdrop r> rp@ ! ;  \ ( R:w -- )
 
+\ ( R xu ... x0 u -- xu ... x0 xu )
+: rpick
+    cells rp@ + cell + @
+;
+
 \ ( -- a-addr )
 \ The bottom address of stacks.
 \ sp@ and rp@ points bottom if implementation so far is correct.