Primitive 117 has a dummy argument that I had neglected previously.
authorTony Garnock-Jones <tonygarnockjones@gmail.com>
Sun, 15 Jul 2018 11:38:44 +0100
changeset 381 2a18c578bc8f
parent 380 b3c00fbcea0a
child 382 a079923f9086
Primitive 117 has a dummy argument that I had neglected previously.
experiments/little-smalltalk/jit-SmallWorld-2015.rkt
--- a/experiments/little-smalltalk/jit-SmallWorld-2015.rkt	Sun Jul 15 01:32:40 2018 +0100
+++ b/experiments/little-smalltalk/jit-SmallWorld-2015.rkt	Sun Jul 15 11:38:44 2018 +0100
@@ -1037,7 +1037,7 @@
 (define-primitive vm [116]
   (let ((image-bytes (serialize-image vm)))
     (display-to-file image-bytes (VM-image-filename vm) #:exists 'replace)))
-(define-primitive vm [117] (exit))
+(define-primitive vm [117 _self] (exit))
 (define-primitive vm [118 (unffiv* wv window) action] ;; "onWindow close b"
   (define callback (block-callback vm action))
   (send window set-close-handler (lambda (_frame) (queue-callback callback) (sleep 0.2)))