diff options
Diffstat (limited to 'module/language/tree-il/compile-bytecode.scm')
-rw-r--r-- | module/language/tree-il/compile-bytecode.scm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/module/language/tree-il/compile-bytecode.scm b/module/language/tree-il/compile-bytecode.scm index c495d2ae6..551ae68e9 100644 --- a/module/language/tree-il/compile-bytecode.scm +++ b/module/language/tree-il/compile-bytecode.scm @@ -459,10 +459,10 @@ v))) ;; Transform "ash" to lsh / rsh. - (($ <primcall> src 'ash (x ($ <const> src (? exact-integer? y)))) + (($ <primcall> src 'ash (x ($ <const> src* (? exact-integer? y)))) (if (negative? y) - (make-primcall src 'lsh (list x (make-const src (- y)))) - (make-primcall src 'rsh (list x (make-const src y))))) + (make-primcall src 'lsh (list x (make-const src* (- y)))) + (make-primcall src 'rsh (list x (make-const src* y))))) ;; (throw key subr msg (list x) (list x)) (($ <primcall> src 'throw |