From 3a3b5005f62a7bd16e147c8049a8e14e0c5a8f3e Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Tue, 2 Sep 2008 01:52:44 -0500
Subject: [PATCH] un-private a word

---
 basis/calendar/calendar.factor | 2 --
 1 file changed, 2 deletions(-)

diff --git a/basis/calendar/calendar.factor b/basis/calendar/calendar.factor
index a904999316..cb0112a3a0 100755
--- a/basis/calendar/calendar.factor
+++ b/basis/calendar/calendar.factor
@@ -346,10 +346,8 @@ GENERIC: days-in-year ( obj -- n )
 M: integer days-in-year ( year -- n ) leap-year? 366 365 ? ;
 M: timestamp days-in-year ( timestamp -- n ) year>> days-in-year ;
 
-<PRIVATE
 : (days-in-month) ( year month -- n )
     dup 2 = [ drop leap-year? 29 28 ? ] [ nip day-counts nth ] if ;
-PRIVATE>
 
 : days-in-month ( timestamp -- n )
     >date< drop (days-in-month) ;