change ERROR: words from throw-foo back to foo.

[factor.git] / extra / macho / macho.factor

diff --git a/extra/macho/macho.factor b/extra/macho/macho.factor
index 2388c42ff765a6b63b500bbb235327f575582f8e..65157c7914b039bf7c67d82c876fa804874943bc 100644 (file)
--- a/extra/macho/macho.factor
+++ b/extra/macho/macho.factor
@@ -833,7 +833,7 @@ ERROR: not-fat-binary ;
     fat_header memory>struct dup magic>> {
         { FAT_MAGIC [ ] }
         { FAT_CIGAM [ ] }
-        [ 2drop throw-not-fat-binary ]
+        [ 2drop not-fat-binary ]
     } case dup
     [ >c-ptr fat_header heap-size swap <displaced-alien> ]
     [ nfat_arch>> 4 >be le> ] bi