From 835e6fca31e91101137eed77c3c42785a3c3aba1 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Sat, 11 Nov 1995 00:29:19 +0000 Subject: [PATCH] Fix randomness in last change. --- v7/src/microcode/prntenv.c | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/v7/src/microcode/prntenv.c b/v7/src/microcode/prntenv.c index 0820a0363..9ea5d2c40 100644 --- a/v7/src/microcode/prntenv.c +++ b/v7/src/microcode/prntenv.c @@ -1,6 +1,6 @@ /* -*-C-*- -$Id: prntenv.c,v 1.4 1995/11/10 23:47:05 cph Exp $ +$Id: prntenv.c,v 1.5 1995/11/11 00:29:19 cph Exp $ Copyright (c) 1993 Massachusetts Institute of Technology @@ -48,10 +48,10 @@ DEFINE_PRIMITIVE ("FILE-TIME->STRING", Prim_file_time_to_string, 1, 1, { time_t clock = (arg_integer (1)); char * time_string = (ctime (&clock)); - PRIMITIVE_RETURN - ((time_string == 0) - ? SHARP_F - : (char_pointer_to_string ((unsigned char *) time_string))); + if (time_string == 0) + PRIMITIVE_RETURN (SHARP_F); + (time_string[24]) = '\0'; + PRIMITIVE_RETURN (char_pointer_to_string ((unsigned char *) time_string)); } } -- 2.25.1