From e08db27bbbe2b5fbe71a04adef4675b437781e14 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Thu, 13 Oct 2011 17:11:23 -0700 Subject: [PATCH] cpu.8080.emulator: use get/set-global. --- extra/cpu/8080/emulator/emulator.factor | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/extra/cpu/8080/emulator/emulator.factor b/extra/cpu/8080/emulator/emulator.factor index 914f7a17a9..73c7560416 100644 --- a/extra/cpu/8080/emulator/emulator.factor +++ b/extra/cpu/8080/emulator/emulator.factor @@ -1390,17 +1390,17 @@ SYMBOL: last-opcode #! that would implement that instruction. dup " " join instruction-quotations [ - "_" join [ "emulate-" % % ] "" make create-in dup last-instruction global set-at + "_" join [ "emulate-" % % ] "" make create-in dup last-instruction set-global ] dip (( cpu -- )) define-declared ; SYNTAX: INSTRUCTION: ";" parse-tokens parse-instructions ; SYNTAX: cycles #! Set the number of cycles for the last instruction that was defined. - scan-token string>number last-opcode global at instruction-cycles set-nth ; + scan-token string>number last-opcode get-global instruction-cycles set-nth ; SYNTAX: opcode ( -- ) #! Set the opcode number for the last instruction that was defined. - last-instruction global at 1quotation scan-token 16 base> - dup last-opcode global set-at set-instruction ; + last-instruction get-global 1quotation scan-token 16 base> + dup last-opcode set-global set-instruction ;