From 39dfcee0059d4c137218277622e5de922b1a103c Mon Sep 17 00:00:00 2001
From: Doug Coleman <erg@jjjj.local>
Date: Thu, 10 Jan 2008 10:46:40 -1000
Subject: [PATCH] fix catalyst-talk

---
 extra/catalyst-talk/catalyst-talk.factor | 11 -----------
 1 file changed, 11 deletions(-)

diff --git a/extra/catalyst-talk/catalyst-talk.factor b/extra/catalyst-talk/catalyst-talk.factor
index 4f41512928..f76ef4db9e 100644
--- a/extra/catalyst-talk/catalyst-talk.factor
+++ b/extra/catalyst-talk/catalyst-talk.factor
@@ -34,17 +34,6 @@ IN: catalyst-talk
         "For CLOS buffs: we allow custom method combination, classes are objects too, there's a MOP"
     }
     
-: (strip-tease) ( data n -- data )
-    >r first3 r> head 3array ;
-
-: strip-tease ( data -- seq )
-    dup third length 1 - [
-        2 + (strip-tease)
-    ] with map ;
-
-: STRIP-TEASE:
-    parse-definition strip-tease [ parsed ] each ; parsing
-
     STRIP-TEASE:
         $slide "Primary school geometry recap"
         { $code