Import Upstream version 3a1upstream/3a1

1 files changed, 3 insertions, 3 deletions

diff --git a/debug.scm b/debug.scm
index 0a913b4..73acc0b 100644
--- a/debug.scm
+++ b/debug.scm
@@ -8,7 +8,7 @@
 ;1.  Any copy made of this software must include this copyright notice
 ;in full.
 ;
-;2.  I have made no warrantee or representation that the operation of
+;2.  I have made no warranty or representation that the operation of
 ;this software will be error-free, and I am under no obligation to
 ;provide any services, by way of maintenance, update, or otherwise.
 ;
@@ -62,7 +62,7 @@
 	    (let ((sym (get-defined-symbol (cadr form))))
 	      (cond ((procedure? (slib:eval sym))
 		     (proc sym)))))))))
-
+;@
 (define (trace-all file . ...)
   (for-each
    (lambda (file)
@@ -87,7 +87,7 @@
       (lambda (sym)
 	(slib:eval `(set! ,sym (trace:trace-procedure 'stack ,sym ',sym))))))
    (cons file ...)))
-
+;@
 (define (break-all file . ...)
   (for-each
    (lambda (file)