From 6e0227328154e18810d8dfa4489bf84c9c15cbf7 Mon Sep 17 00:00:00 2001 From: Irene Knapp Date: Fri, 28 Aug 2026 05:28:35 -0700 Subject: change the transforms to take their end delimiters as parameters this will not be useful until read-to-buffer also does, but it's a step towards that Force-Push: yes Change-Id: Icf03088c9e52e427a5c130949e9ba85655d59044 --- core.e | 2 ++ 1 file changed, 2 insertions(+) (limited to 'core.e') diff --git a/core.e b/core.e index 1effc11..2aabc6f 100644 --- a/core.e +++ b/core.e @@ -1279,6 +1279,8 @@ here ! drop ; : over swap dup 3unroll ; + +~ 0 pick is equivalent to dup. 1 pick is equivlent to over. : pick 2 + dup roll dup 3roll unroll ; ~ Standard Forth doesn't have equivalents of our ndrop and ndup. The HP -- cgit 1.4.1