@@ -437,7 +437,7 @@ doOp v (LSExt (ITFixed from) ITChar) [x]
437437doOp v (LSExt (ITFixed from) (ITFixed to)) [x]
438438 | nativeTyWidth from < nativeTyWidth to = bitCoerce v "S" from to x
439439doOp v (LZExt ITNative (ITFixed to)) [x]
440− = v ++ "idris_b" ++ show (nativeTyWidth to) ++ "const(vm, (uintptr_t)GETINT(" ++ creg x ++ ")"
440+ = v ++ "idris_b" ++ show (nativeTyWidth to) ++ "const(vm, (uintptr_t)GETINT(" ++ creg x ++ "))"
441441doOp v (LZExt ITChar (ITFixed to)) [x]
442442 = doOp v (LZExt ITNative (ITFixed to)) [x]
443443doOp v (LZExt (ITFixed from) ITNative) [x]