1 files changed, 2 insertions, 0 deletions
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