From 3e4fca1014d8b27d1a852f74e998d9f1d35930f4 Mon Sep 17 00:00:00 2001
From: Thomas Voss <mail@thomasvoss.com>
Date: Wed, 18 Dec 2024 19:01:39 +0100
Subject: Rename instruction

---
 2019/interpreter.lisp | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/2019/interpreter.lisp b/2019/interpreter.lisp
index 532d6a9..f0a0a59 100644
--- a/2019/interpreter.lisp
+++ b/2019/interpreter.lisp
@@ -25,7 +25,7 @@
 
 (defconstant +op-add+   1)
 (defconstant +op-mul+   2)
-(defconstant +op-set+   3)
+(defconstant +op-read+  3)
 (defconstant +op-out+   4)
 (defconstant +op-jt+    5)
 (defconstant +op-jn+    6)
@@ -63,7 +63,7 @@
            (ecase opcode
              (#.+op-add+  3)
              (#.+op-mul+  3)
-             (#.+op-set+  1)
+             (#.+op-read+ 1)
              (#.+op-out+  1)
              (#.+op-jt+   2)
              (#.+op-jn+   2)
@@ -132,7 +132,7 @@
 (definstruction mul (mach x y &out dst)
   (setf (memref mach dst) (* x y)))
 
-(definstruction set (mach &out dst)
+(definstruction read (mach &out dst)
   (setf (memref mach dst) (funcall (mach-input-handler mach))))
 
 (definstruction out (mach x)
-- 
cgit v1.2.3