From: Guillermo J. Rozas Date: Sat, 13 Nov 1993 19:24:04 +0000 (+0000) Subject: Add mechanism to disable timestamps to allow comparison of output. X-Git-Tag: 20090517-FFI~7508 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=bd8fb74c5c0d4c65713c19a7841c739a13095c77;p=mit-scheme.git Add mechanism to disable timestamps to allow comparison of output. --- diff --git a/v7/src/compiler/machines/C/cout.scm b/v7/src/compiler/machines/C/cout.scm index 89d56a016..b8ce81a52 100644 --- a/v7/src/compiler/machines/C/cout.scm +++ b/v7/src/compiler/machines/C/cout.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: cout.scm,v 1.14 1993/11/09 04:30:49 gjr Exp $ +$Id: cout.scm,v 1.15 1993/11/13 19:24:04 gjr Exp $ Copyright (c) 1992-1993 Massachusetts Institute of Technology @@ -38,6 +38,7 @@ MIT in each case. |# (declare (usual-integrations)) (define *C-procedure-name* 'DEFAULT) +(define *disable-timestamps?* false) (define (stringify suffix initial-label lap-code info-output-pathname) (define (stringify-object x) @@ -51,15 +52,17 @@ MIT in each case. |# (error "stringify: Unknown frob" x)))) (define (make-time-stamp) - (let ((time (get-decoded-time))) - (string-append - "_" - (number->string (decoded-time/second time)) "_" - (number->string (decoded-time/minute time)) "_" - (number->string (decoded-time/hour time)) "_" - (number->string (decoded-time/day time)) "_" - (number->string (decoded-time/month time)) "_" - (number->string (decoded-time/year time))))) + (if *disable-timestamps?* + "_timestamp" + (let ((time (get-decoded-time))) + (string-append + "_" + (number->string (decoded-time/second time)) "_" + (number->string (decoded-time/minute time)) "_" + (number->string (decoded-time/hour time)) "_" + (number->string (decoded-time/day time)) "_" + (number->string (decoded-time/month time)) "_" + (number->string (decoded-time/year time)))))) (define (->variable-declarations vars) (if (null? vars)