Add missing primitive implementation for the plain interpreter. default tip
authorTony Garnock-Jones <tonygarnockjones@gmail.com>
Wed, 16 Jan 2019 17:15:58 +0000
changeset 438 1fe179d53161
parent 437 f3b04d3ef973
Add missing primitive implementation for the plain interpreter.
experiments/little-smalltalk/run-SmallWorld-2015.rkt
--- a/experiments/little-smalltalk/run-SmallWorld-2015.rkt	Tue Aug 07 17:18:20 2018 +0100
+++ b/experiments/little-smalltalk/run-SmallWorld-2015.rkt	Wed Jan 16 17:15:58 2019 +0000
@@ -214,6 +214,7 @@
                              (slotAt block 9)))]
          [34 (VM-nil vm)] ;; "thread kill"
          [35 (push-and-continue ctx)]
+         [36 (push-and-continue (pop-multiple! low))]
 
          [_ (define args (pop-multiple! low))
             (define handler (hash-ref *primitive-handlers* primitive-number))