From fbf9a877a1a59c0f792366ed488c688485a1a3b8 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Sun, 23 Apr 1995 05:58:14 +0000 Subject: [PATCH] Fix typos in previous change. --- v7/src/runtime/datime.scm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/v7/src/runtime/datime.scm b/v7/src/runtime/datime.scm index 85607562e..ee6d9afdc 100644 --- a/v7/src/runtime/datime.scm +++ b/v7/src/runtime/datime.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: datime.scm,v 14.11 1995/04/23 05:43:43 cph Exp $ +$Id: datime.scm,v 14.12 1995/04/23 05:58:14 cph Exp $ Copyright (c) 1988-95 Massachusetts Institute of Technology @@ -103,7 +103,7 @@ MIT in each case. |# (> (decoded-time/daylight-savings-time dt) 0)) (define (decoded-time/date-string time) - (string-append (weekday/long-string (decoded-time/day-of-week time)) + (string-append (day-of-week/long-string (decoded-time/day-of-week time)) " " (month/long-string (decoded-time/month time)) " " @@ -161,13 +161,13 @@ MIT in each case. |# (define (day-of-week/short-string day) (guarantee-day-of-week day 'DAY-OF-WEEK/SHORT-STRING) - (vector-ref '#("Mon" "Tue" "Wed" "Thu" "Fri" "Sat" "Sun") day-of-week)) + (vector-ref '#("Mon" "Tue" "Wed" "Thu" "Fri" "Sat" "Sun") day)) (define (day-of-week/long-string day) (guarantee-day-of-week day 'DAY-OF-WEEK/LONG-STRING) (vector-ref '#("Monday" "Tuesday" "Wednesday" "Thursday" "Friday" "Saturday" "Sunday") - day-of-week)) + day)) (define (guarantee-day-of-week day name) (if (not (exact-integer? day)) -- 2.25.1