Preserve abstraction (!)
authorTony Garnock-Jones <tonygarnockjones@gmail.com>
Mon, 16 Jul 2018 15:27:24 +0100
changeset 386 552736e4616c
parent 385 0d3839af02db
child 387 9af7f893128d
Preserve abstraction (!)
experiments/little-smalltalk/jit-SmallWorld-2015.rkt
--- a/experiments/little-smalltalk/jit-SmallWorld-2015.rkt	Mon Jul 16 15:22:58 2018 +0100
+++ b/experiments/little-smalltalk/jit-SmallWorld-2015.rkt	Mon Jul 16 15:27:24 2018 +0100
@@ -312,7 +312,7 @@
     (define-values (opcode arg) (decode!))
     (log-vm/jit-debug " ~a: ~a ~a" ip0 opcode arg)
     (match opcode
-      [1 (let@ [n (mksym "slot~a_" arg) `(vector-ref (obj-slots self) ,arg)]
+      [1 (let@ [n (mksym "slot~a_" arg) `(slotAt self ,arg)]
                (translate ip (cons n stack)))]
       [2 (translate ip (cons (vector-ref argnames arg) stack))]
       [3 (let@ [n (mksym "tmp~a_" arg) (vector-ref tmpnames arg)]