libc: removing &(free) and |(free) destructors which aren't really used.

diff --git a/basis/libc/libc.factor b/basis/libc/libc.factor
index b7a69cd3f1085b8a64adbd0ad159089ea06eccda..d69b9994ffb72624a02c3e2d5622e849d0831243 100644 (file)
--- a/basis/libc/libc.factor
+++ b/basis/libc/libc.factor
@@ -118,7 +118,6 @@ FUNCTION: size_t strlen ( c-string alien ) ;
 FUNCTION: int system ( c-string command ) ;
 
 DESTRUCTOR: free
-DESTRUCTOR: (free)
 
 ! For libc.linux, libc.windows, libc.macosx...
 << "libc." os name>> append require >>

diff --git a/extra/alien/cxx/demangle/libstdcxx/libstdcxx.factor b/extra/alien/cxx/demangle/libstdcxx/libstdcxx.factor
index ae727ac3707bc5e057fde42b02a0b92889b484f9..91c870c58dc23010165c128f0af1fd644b64662d 100644 (file)
--- a/extra/alien/cxx/demangle/libstdcxx/libstdcxx.factor
+++ b/extra/alien/cxx/demangle/libstdcxx/libstdcxx.factor
@@ -21,6 +21,8 @@ ERROR: invalid-demangle-args name ;
 : mangled-name? ( name -- ? )
     "_Z" head? ;
 
+DESTRUCTOR: (free)
+
 :: demangle ( mangled-name -- c++-name )
     0 ulong <ref> :> length
     0 int <ref> :> status [