magic: some minor fixes.

diff --git a/extra/magic/ffi/ffi.factor b/extra/magic/ffi/ffi.factor
index 8832e095be4eada5f7a2c418b8185d249f73dfb2..0b760a3816dbc5124a0582c2d6ed938f4044f512 100644 (file)
--- a/extra/magic/ffi/ffi.factor
+++ b/extra/magic/ffi/ffi.factor
@@ -6,7 +6,7 @@ alien.libraries.finder alien.syntax kernel literals ;
 
 IN: magic.ffi
 
-"libmagic" dup find-library cdecl add-library
+<< "libmagic" dup find-library cdecl add-library >>
 
 LIBRARY: libmagic
 

diff --git a/extra/magic/magic.factor b/extra/magic/magic.factor
index 2b640678e897a8a11d92c10ce8a0a12f7b70aa0f..a419ca5a89d35a57c6837358a10b8960ef270650 100644 (file)
--- a/extra/magic/magic.factor
+++ b/extra/magic/magic.factor
@@ -13,7 +13,7 @@ IN: magic
 : magic-file ( path flags -- result )
     [
         magic_open &magic_close
-        [ [ f magic_load ] keep check-magic-error ]
+        [ dup f magic_load check-magic-error ]
         [ swap normalize-path magic_file ] bi
     ] with-destructors ;