From 84b064f65e25d6e6e3a8c8cfe8a10062a2da66a0 Mon Sep 17 00:00:00 2001
From: dan <me@danrh.co.uk>
Date: Fri, 19 May 2023 22:49:11 -0400
Subject: feat: dup command

---
 forth.js | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/forth.js b/forth.js
index 84556c1..ab3dba6 100644
--- a/forth.js
+++ b/forth.js
@@ -18,8 +18,9 @@ function forth(print = console.log) {
             },
         '+' : () => { s.push(popNum() + popNum()) },
         '*' : () => { s.push(popNum() * popNum()) },
-        '.' : () => print(s.pop()),
-        'peek' : () => print(s[s.length - 1]),
+        '.' : () => { print(s.pop()) },
+        'peek' : () => { print(s[s.length - 1]) },
+        'dup' : () => { s.push(s[s.length - 1]) },
         ':' : (initialIdx, tokens) => {
             let localIdx = initialIdx + 1;
             const fname = tokens[localIdx++];
-- 
cgit v1.2.3