diff options
| author | Thomas Voss <mail@thomasvoss.com> | 2024-12-18 19:01:39 +0100 |
|---|---|---|
| committer | Thomas Voss <mail@thomasvoss.com> | 2024-12-18 19:01:39 +0100 |
| commit | 3e4fca1014d8b27d1a852f74e998d9f1d35930f4 (patch) | |
| tree | 8933c7e64b9d4dddbe4b7573811e6ef2414b8525 | |
| parent | a5f5c1adaf2ee0b13a05821dc5e811107d12a24d (diff) | |
Rename instruction
| -rw-r--r-- | 2019/interpreter.lisp | 6 |
1 files 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) |