Cosmetic
authorTony Garnock-Jones <tonygarnockjones@gmail.com>
Tue, 17 Jul 2018 13:02:17 +0100
changeset 388 ae8b1d7fd6a2
parent 387 9af7f893128d
child 389 befaa2a55f7b
Cosmetic
experiments/little-smalltalk/jit-SmallWorld-2015.rkt
--- a/experiments/little-smalltalk/jit-SmallWorld-2015.rkt	Tue Jul 17 13:02:08 2018 +0100
+++ b/experiments/little-smalltalk/jit-SmallWorld-2015.rkt	Tue Jul 17 13:02:17 2018 +0100
@@ -408,14 +408,13 @@
                       (translate ip (cons ctxref stack)))]
             [36 (let@ [arr `(mkobj ARRAY ,@(reverse (take stack arg)))]
                       (translate ip (cons arr (drop stack arg))))]
-            [_ (let@ [primresult (let ((generator (hash-ref *primitive-code-snippets*
-                                                            primitive-number
-                                                            (lambda ()
-                                                              (error 'compile-native-proc
-                                                                     "Unknown primitive: ~a"
-                                                                     primitive-number)))))
-                                   (generator 'vm (reverse (take stack arg))))]
-                     (translate ip (cons primresult (drop stack arg))))])]
+            [_ (let ((generator (hash-ref *primitive-code-snippets*
+                                          primitive-number
+                                          (lambda () (error 'compile-native-proc
+                                                            "Unknown primitive: ~a"
+                                                            primitive-number)))))
+                 (let@ [primresult (generator 'vm (reverse (take stack arg)))]
+                       (translate ip (cons primresult (drop stack arg)))))])]
       [14 (let@ [clsvar `(slotAt (obj-class* vm self) ,(+ arg 5))]
                 (translate ip (cons clsvar stack)))]
       [15 (match arg