         { unboxed-c-ptr "alien" simple-c-ptr }
         { f "offset" fixnum }
     } }
-    { +scratch+ { { unboxed-alien "output" } } }
-    { +output+ { "output" } }
+    { +scratch+ { { unboxed-alien "value" } } }
+    { +output+ { "value" } }
     { +clobber+ { "offset" } }
 } define-intrinsic
 

            { unboxed-c-ptr "alien" simple-c-ptr }
            { f "offset" fixnum }
        } }
        { +scratch+ { { f "value" } { f "address" } } }
        { +output+ { "value" } }
        { +clobber+ { "offset" } }
    } ;

: %alien-integer-get ( quot -- )
    %alien-accessor
    "output" operand dup %tag-fixnum ; inline

: alien-integer-set-template
    H{

            { unboxed-c-ptr "alien" simple-c-ptr }
            { f "offset" fixnum }
        } }
        { +clobber+ { "value" "offset" } }
    } ;

