From 58b5c60886b3e0c4d720b37e08f17c5f8461f69e Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Mon, 5 Jul 2010 22:18:02 -0400
Subject: [PATCH] mason: update for twitter vocab changes

---
 extra/mason/config/config.factor   |  5 -----
 extra/mason/twitter/twitter.factor | 11 ++---------
 2 files changed, 2 insertions(+), 14 deletions(-)

diff --git a/extra/mason/config/config.factor b/extra/mason/config/config.factor
index 48f4d307c8..b72b949ed5 100644
--- a/extra/mason/config/config.factor
+++ b/extra/mason/config/config.factor
@@ -17,11 +17,6 @@ SYMBOL: builder-from
 ! Who receives build report e-mails.
 SYMBOL: builder-recipients
 
-! (Optional) twitter credentials for status updates.
-SYMBOL: builder-twitter-username
-
-SYMBOL: builder-twitter-password
-
 ! (Optional) CPU architecture to build for.
 SYMBOL: target-cpu
 
diff --git a/extra/mason/twitter/twitter.factor b/extra/mason/twitter/twitter.factor
index 21f1bcabc3..5acd646ecc 100644
--- a/extra/mason/twitter/twitter.factor
+++ b/extra/mason/twitter/twitter.factor
@@ -1,14 +1,7 @@
-! Copyright (C) 2009 Slava Pestov.
+! Copyright (C) 2009, 2010 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
 USING: debugger fry kernel mason.config namespaces twitter ;
 IN: mason.twitter
 
 : mason-tweet ( message -- )
-    builder-twitter-username get builder-twitter-password get and
-    [
-        [
-            builder-twitter-username get twitter-username set
-            builder-twitter-password get twitter-password set
-            '[ _ tweet ] try
-        ] with-scope
-    ] [ drop ] if ;
\ No newline at end of file
+    twitter-access-token get [ '[ _ tweet ] try ] [ drop ] if ;
\ No newline at end of file