steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

magic: some minor fixes.

db4
John Benediktsson 2014-10-15 13:46:47 -07:00
parent df1a1fffd0
commit e9a4f50394
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/magic/ffi/ffi.factor
View File

@ -6,7 +6,7 @@ alien.libraries.finder alien.syntax kernel literals ;
IN: magic.ffi IN: magic.ffi
"libmagic" dup find-library cdecl add-library << "libmagic" dup find-library cdecl add-library >>
LIBRARY: libmagic LIBRARY: libmagic

2
extra/magic/magic.factor
View File

@ -13,7 +13,7 @@ IN: magic
: magic-file ( path flags -- result ) : magic-file ( path flags -- result )
[ [
magic_open &magic_close magic_open &magic_close
[ [ f magic_load ] keep check-magic-error ] [ dup f magic_load check-magic-error ]
[ swap normalize-path magic_file ] bi [ swap normalize-path magic_file ] bi
] with-destructors ; ] with-destructors ;