Parent Directory | Revision Log | Patch
revision 1.24 by pj, Mon Jul 16 07:46:48 2001 UTC | revision 1.24.4.1 by pj, Fri Mar 15 20:46:02 2002 UTC | |
---|---|---|
# | Line 237 Echo French Revolutionary date unless NO | Line 237 Echo French Revolutionary date unless NO |
237 | (day (if (> month 12) | (day (if (> month 12) |
238 | (- month 12) | (- month 12) |
239 | (calendar-read | (calendar-read |
240 | "Jour (1-10): " | "Jour (1-30): " |
241 | '(lambda (x) (and (<= 1 x) (<= x 30)))))) | '(lambda (x) (and (<= 1 x) (<= x 30)))))) |
242 | (month (if (> month 12) 13 month))) | (month (if (> month 12) 13 month))) |
243 | (list (list month day year))))) | (list (list month day year))))) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |