From 7f247c27073a273c4e0befacf6a94716c360383f Mon Sep 17 00:00:00 2001
From: dan <me@danrh.co.uk>
Date: Sat, 20 May 2023 11:34:47 -0400
Subject: feat: swap command
---
forth.js | 6 ++++++
1 file changed, 6 insertions(+)
diff --git a/forth.js b/forth.js
index a169ca6..e589387 100644
--- a/forth.js
+++ b/forth.js
@@ -16,6 +16,12 @@ function forth(print = console.log) {
'+' : () => { s.push(popNum() + popNum()) },
'*' : () => { s.push(popNum() * popNum()) },
'=' : () => { s.push(popNum() === popNum()) },
+ 'swap' : () => {
+ const a1 = s.pop();
+ const a2 = s.pop();
+ s.push(a1);
+ s.push(a2);
+ },
'then' : () => {/*Doing nothing skips the token*/},
'if' : (initialIdx, tokens) => {
if (!s.pop()) {
--
cgit v1.2.3