From 115511038d2eb10e2aa42746ee50aa7c22881938 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Thu, 20 Nov 2014 19:51:10 -0800
Subject: [PATCH] libc: removing &(free) and |(free) destructors which aren't
 really used.

---
 basis/libc/libc.factor                              | 1 -
 extra/alien/cxx/demangle/libstdcxx/libstdcxx.factor | 2 ++
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/basis/libc/libc.factor b/basis/libc/libc.factor
index b7a69cd3f1..d69b9994ff 100644
--- 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 ae727ac370..91c870c58d 100644
--- 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 [