From 6e8630ab75278e41c35dd3fb9ab947790219b14d Mon Sep 17 00:00:00 2001 From: "Michael R. Blair" Date: Sun, 26 Nov 1995 18:39:50 +0000 Subject: [PATCH] typo within backquote jungle. --- v7/src/pcsample/pcsample.scm | 28 ++++++++++++++-------------- 1 file changed, 14 insertions(+), 14 deletions(-) diff --git a/v7/src/pcsample/pcsample.scm b/v7/src/pcsample/pcsample.scm index 53c20e9f0..d0231a8af 100644 --- a/v7/src/pcsample/pcsample.scm +++ b/v7/src/pcsample/pcsample.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: pcsample.scm,v 1.1 1995/07/28 14:14:08 adams Exp $ +$Id: pcsample.scm,v 1.2 1995/11/26 18:39:50 ziggy Exp $ Copyright (c) 1995 Massachusetts Institute of Technology @@ -954,19 +954,19 @@ TODO: (internal-time/ticks->seconds stealth-t/real) *flo:round-to-magnification/scale*))) (let ((stealth-s/gc-only - (flo:- stealth-s stealth-s/gc-only))) - "\n;;; discounting " ,stealth-s - ,@(if *pc-sample/time-display/running-time-too?* - `("\n;;; running: " ,stealth-s/no-gc) - '()) - ,@(if *pc-sample/time-display/non-gc-time-too?* - `("\n;;; GC time: " ,stealth-s/gc-only) - '()) - ,@(if *pc-sample/time-display/real-time-too?* - `("\n;;; wall clock time: " ,stealth-s/real) - '()) - "\n;;; seconds spent in clandestine activities." - "\n;;;\n")))) + (flo:- stealth-s stealth-s/no-gc))) + `("\n;;; discounting " ,stealth-s + ,@(if *pc-sample/time-display/running-time-too?* + `("\n;;; running: " ,stealth-s/no-gc) + '()) + ,@(if *pc-sample/time-display/non-gc-time-too?* + `("\n;;; GC time: " ,stealth-s/gc-only) + '()) + ,@(if *pc-sample/time-display/real-time-too?* + `("\n;;; wall clock time: " ,stealth-s/real) + '()) + "\n;;; seconds spent in clandestine activities." + "\n;;;\n"))))) )))))))) (define-integrable (flo:round-to-magnification num magnification) -- 2.25.1