From e8b99ae8e7e49f9909534058f9cc56a18f9122c7 Mon Sep 17 00:00:00 2001
From: Tony Garnock-Jones <tonygarnockjones@gmail.com>
Date: Mon, 11 May 2015 13:33:05 -0400
Subject: [PATCH] Cosmetic: trim trailing whitespace

---
 prospect/canonicalize.rkt | 18 +++++++++---------
 prospect/lang.rkt         |  8 ++++----
 2 files changed, 13 insertions(+), 13 deletions(-)

diff --git a/prospect/canonicalize.rkt b/prospect/canonicalize.rkt
index 6ea7706..971112d 100644
--- a/prospect/canonicalize.rkt
+++ b/prospect/canonicalize.rkt
@@ -21,27 +21,27 @@
 
 (module+ test
   (require rackunit)
-  
+
   (define v1 (canonicalize (cons 1 2)))
-  
+
   (let ((v2 (canonicalize (cons 1 2))))
     (check-eq? v1 v2))
-  
+
   (collect-garbage)
   (check-equal? (hash-count canonical-values) 1)
-  
+
   (let ((v2 (canonicalize (cons 1 2))))
     (check-eq? v1 v2))
-  
+
   (set! v1 (canonicalize (cons 1 2)))
-  
+
   (collect-garbage)
   (check-equal? (hash-count canonical-values) 1)
-  
+
   (let ((v2 (canonicalize (cons 1 2))))
     (check-eq? v1 v2))
-  
+
   (set! v1 #f)
-  
+
   (collect-garbage)
   (check-equal? (hash-count canonical-values) 0))
diff --git a/prospect/lang.rkt b/prospect/lang.rkt
index 77f5142..7b5bb66 100644
--- a/prospect/lang.rkt
+++ b/prospect/lang.rkt
@@ -26,7 +26,7 @@
 	       final-stx)
 	     (syntax-case (local-expand (car forms)
 					'module
-					(syntax->list #'(quote 
+					(syntax->list #'(quote
 							 quote-syntax #%top
 							 lambda case-lambda
 							 let-values letrec-values
@@ -36,8 +36,8 @@
 							 define-values define-syntaxes
 							 begin-for-syntax
 							 module module*
-							 #%module-begin 
-							 #%require #%provide 
+							 #%module-begin
+							 #%require #%provide
 							 #%variable-reference))) ()
 	       [(head rest ...)
 		(if (free-identifier=? #'head #'begin)
@@ -47,7 +47,7 @@
 		    (if (ormap (lambda (i) (free-identifier=? #'head i))
 			       (syntax->list #'(define-values define-syntaxes begin-for-syntax
 						 module module*
-						 #%module-begin 
+						 #%module-begin
 						 #%require #%provide)))
 			(accumulate-actions action-ids
 					    (cons (car forms) final-forms)