From: Michael R. Blair <edu/mit/csail/zurich/ziggy>
Date: Sun, 26 Nov 1995 18:39:50 +0000 (+0000)
Subject: typo within backquote jungle.
X-Git-Tag: 20090517-FFI~5720
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=6e8630ab75278e41c35dd3fb9ab947790219b14d;p=mit-scheme.git

typo within backquote jungle.
---

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)