[decompiler] Make addition nicer (#733)

* temp

* update refs

* update reference

* fix tests

test/decompiler/reference/engine/engine/connect_REF.gc

@@ -169,10 +169,7 @@
       (object-new
        allocation
        type-to-make
-       (the-as
-        int
-        (+ (-> type-to-make size) (the-as uint (* (+ length -1) 32)))
-        )
+       (the-as int (+ (-> type-to-make size) (* (+ length -1) 32)))
        )
       )
      )
@@ -258,25 +255,25 @@
   (format #t "~Tlength: ~D~%" (-> obj length))
   (format #t "~Talive-list:~%")
   (let ((s5-0 *print-column*))
-   (set! *print-column* (+ *print-column* (the-as uint 64)))
+   (set! *print-column* (+ *print-column* 64))
    (inspect (-> obj alive-list))
    (set! *print-column* s5-0)
    )
   (format #t "~Talive-list-end:~%")
   (let ((s5-1 *print-column*))
-   (set! *print-column* (+ *print-column* (the-as uint 64)))
+   (set! *print-column* (+ *print-column* 64))
    (inspect (-> obj alive-list-end))
    (set! *print-column* s5-1)
    )
   (format #t "~Tdead-list:~%")
   (let ((s5-2 *print-column*))
-   (set! *print-column* (+ *print-column* (the-as uint 64)))
+   (set! *print-column* (+ *print-column* 64))
    (inspect (-> obj dead-list))
    (set! *print-column* s5-2)
    )
   (format #t "~Tdead-list-end:~%")
   (let ((s5-3 *print-column*))
-   (set! *print-column* (+ *print-column* (the-as uint 64)))
+   (set! *print-column* (+ *print-column* 64))
    (inspect (-> obj dead-list-end))
    (set! *print-column* s5-3)
    )
@@ -292,10 +289,7 @@
 ;; definition for method 5 of type engine
 ;; INFO: Return type mismatch uint vs int.
 (defmethod asize-of engine ((obj engine))
-  (the-as
-   int
-   (+ (-> engine size) (the-as uint (* (+ (-> obj allocated-length) -1) 32)))
-   )
+  (the-as int (+ (-> engine size) (* (+ (-> obj allocated-length) -1) 32)))
   )
 
 ;; definition for method 10 of type engine