diff --git a/wip-duuqnd/user-side-compiler/backend/code-generator.lisp b/wip-duuqnd/user-side-compiler/backend/code-generator.lisp
index ffb272c..50d1938 100644
--- a/wip-duuqnd/user-side-compiler/backend/code-generator.lisp
+++ b/wip-duuqnd/user-side-compiler/backend/code-generator.lisp
@@ -93,14 +93,14 @@
 (define-normal-emitter emit-sta (error "STA has no immediate mode.") #x85 #x8d)
 (define-normal-emitter emit-adc #x69 #x65 #x6d)
 
-(defun emit-store-result (result)
-  (if (or (null (allocation-details result))
-          (member (strategy (allocation-details result))
+(defun emit-store-data (data)
+  (if (or (null (allocation-details data))
+          (member (strategy (allocation-details data))
                   '(:constant :accumulator)))
       (setf *last-instruction* '(:useless))
       (progn
-        (emit-sta :address (data-reference result))
-        (setf *last-instruction* (list :store result)))))
+        (emit-sta :address (data-reference data))
+        (setf *last-instruction* (list :store data)))))
 
 (defun emit-load-data (data)
   (if (or (member (strategy (allocation-details data))