Commit 77ade31a authored by Guy Watson's avatar Guy Watson
Browse files

Fix typo in add-signed-suffix

parent 992fc8f9
......@@ -692,7 +692,7 @@
;; Adds a sign suffix if needed. It can differentiate between float and int for
;; nodes like division, which only need a sign suffix on the int base-type
(define (add-signed-suffix node instruction)
(let ([node-type (get-base-type-name)])
(let ([node-type (get-base-type-name node)])
(cond [(or (eq? node-type 'i32) (eq? node-type 'i64))
(if (ast-child 'sign node)
(string->symbol (format "~a~a" instruction '_s))
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment