Import Upstream version 2c7upstream/2c7

1 files changed, 3 insertions, 3 deletions

diff --git a/struct.scm b/struct.scm
index 8c5c423..100d3ff 100644
--- a/struct.scm
+++ b/struct.scm
@@ -100,17 +100,17 @@
 		  (map
 		   (lambda (field)
 		     (string->symbol
-		      (string-append 
+		      (string-append
 		       "set-" name "-" (symbol->string field) "!")))
 		   (cadr x))))
 	     (k (car x) make-name name? field-accessors field-setters))))
 	(else (slib:error "define-record: invalid syntax" x)))))
-       
+
 (define check-variant-case-syntax
   (let
     ((make-clause
        (lambda (clause)
-	 (if (eq? (car clause) 'else) 
+	 (if (eq? (car clause) 'else)
 	   clause
 	   (let ((name (symbol->string (car clause))))
 	     (let ((name? (string->symbol (string-append name "?")))