From 226de6c60bf985dbec6ef025f3759b7d1795655d Mon Sep 17 00:00:00 2001
From: Mark Wooding <mdw@distorted.org.uk>
Date: Mon, 1 Apr 2013 16:25:51 +0100
Subject: [PATCH] Various files: Whitespace fixes.

---
 Makefile           | 2 +-
 algol68-fringe.a68 | 6 +++---
 f#-fringe.fs       | 2 +-
 scheme-fringe.scm  | 4 ++--
 4 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/Makefile b/Makefile
index 1335df6..26b54df 100644
--- a/Makefile
+++ b/Makefile
@@ -138,7 +138,7 @@ f\#-fringe: f\#-fringe.exe
 ### Scheme.
 
 SCMC			 = csc
-SCMFLAGS		 = -c -O2 
+SCMFLAGS		 = -c -O2
 .SUFFIXES: .scm
 .scm.o:; $(call v_echo,SCMC)$(SCMC) $(SCMFLAGS) -o $@ $<
 
diff --git a/algol68-fringe.a68 b/algol68-fringe.a68
index fdea7c8..b096a4b 100644
--- a/algol68-fringe.a68
+++ b/algol68-fringe.a68
@@ -19,7 +19,7 @@ BEGIN
   END;
 
 PROC fail = ([] CHAR message) VOID:
-  ### Mournfully announce an error and quit. 
+  ### Mournfully announce an error and quit.
   #
   BEGIN put(stand error, (program name, ": ", message, new line));
     execve("/bin/false", "false", ())	# Can this be any worse? #
@@ -52,7 +52,7 @@ PROC parse tree = ([] CHAR string) REF NODE:
 	IF i > UPB string THEN fail("no data") FI;
 	CHAR data = string[i]; i +:= 1;
 	REF NODE right = parse;
-	IF (i > UPB string | TRUE | string[i] /= ")") 
+	IF (i > UPB string | TRUE | string[i] /= ")")
  	  THEN fail("missing )") FI;
 	i +:= 1;
 	HEAP NODE := (left, right, data)
@@ -128,7 +128,7 @@ PROC same fringes = (REF NODE n, REF NODE nn) BOOL:
   #
   BEGIN REF NODEITER i = node iterator(n), ii = node iterator(nn);
     BOOL win := FALSE;
-    DO REF NODE n = next node(i), nn = next node(ii); 
+    DO REF NODE n = next node(i), nn = next node(ii);
       IF tree is not empty(n)
       THEN IF tree is not empty(nn)
         THEN IF data OF n = data OF nn THEN SKIP ELSE done FI
diff --git a/f#-fringe.fs b/f#-fringe.fs
index 534ce05..cc00318 100644
--- a/f#-fringe.fs
+++ b/f#-fringe.fs
@@ -114,5 +114,5 @@ let main args =
     | exc ->
       fprintf stderr "%s: %s\n" program_name exc.Message
       1
-  
+
 ///----- That's all, folks --------------------------------------------------
diff --git a/scheme-fringe.scm b/scheme-fringe.scm
index 5279fbf..47b1266 100644
--- a/scheme-fringe.scm
+++ b/scheme-fringe.scm
@@ -74,8 +74,8 @@
     ((define-generator (name . args) . body)
      (define (name . args)
        (make-coroutine (lambda ()
-                         (begin . body)
-                         (resume (calling-coroutine) #f #f)))))))
+			 (begin . body)
+			 (resume (calling-coroutine) #f #f)))))))
 
 (define (yield object)
   ;; Yield OBJECT from a generator.  The generator protocol returns two
-- 
2.11.0