fix intrinsic

2008-09-02 17:02:15 -05:00 · 2008-09-02 17:02:15 -05:00 · 1ef49b1a00
parent 1e8358eff5
commit 1ef49b1a00
1 changed files with 1 additions and 1 deletions
--- a/basis/cpu/ppc/intrinsics/intrinsics.factor
+++ b/basis/cpu/ppc/intrinsics/intrinsics.factor
@ -539,7 +539,7 @@ IN: cpu.ppc.intrinsics
            { unboxed-c-ptr "alien" c-ptr }
            { f "offset" fixnum }
        } }
-        { +scratch+ { "scratch" } }
+        { +scratch+ { { f "scratch" } } }
        { +clobber+ { "value" "offset" } }
    } ;