From e9a4f5039433e3144419d1ce453dc787c66318a8 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Wed, 15 Oct 2014 13:46:47 -0700
Subject: [PATCH] magic: some minor fixes.

---
 extra/magic/ffi/ffi.factor | 2 +-
 extra/magic/magic.factor   | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/extra/magic/ffi/ffi.factor b/extra/magic/ffi/ffi.factor
index 8832e095be..0b760a3816 100644
--- 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 2b640678e8..a419ca5a89 100644
--- 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 ;