From 654bc2c2d65092205bfbaeb8e949f476b9fab8e6 Mon Sep 17 00:00:00 2001
From: Yuichi Nishiwaki <yuichi.nishiwaki@gmail.com>
Date: Wed, 10 Sep 2014 13:27:38 +0900
Subject: [PATCH] add local variables list

---
 boot.c | 34 +++++++++++++++++++++-------------
 1 file changed, 21 insertions(+), 13 deletions(-)

diff --git a/boot.c b/boot.c
index 00b1671e..07756ced 100644
--- a/boot.c
+++ b/boot.c
@@ -2,19 +2,6 @@
 
 use strict;
 
-open IN, "./boot.c";
-my @data = <IN>;
-close IN;
-
-open STDOUT, ">", "./boot.c";
-
-foreach (@data) {
-  print;
-  last if $_ eq "#---END---\n";
-}
-
-print "\n#endif\n\n";
-
 my $src = <<'EOL';
 
 (define-library (picrin base)
@@ -360,6 +347,19 @@ my $src = <<'EOL';
 
 EOL
 
+open IN, "./boot.c";
+my @data = <IN>;
+close IN;
+
+open STDOUT, ">", "./boot.c";
+
+foreach (@data) {
+  print;
+  last if $_ eq "#---END---\n";
+}
+
+print "\n#endif\n\n";
+
 print <<EOL;
 const char pic_boot[] =
 EOL
@@ -376,6 +376,10 @@ print <<EOL;
 ;
 
 #if 0
+Local Variables:
+mode: scheme
+End:
+
 =cut
 #endif
 EOL
@@ -731,5 +735,9 @@ const char pic_boot[] =
 ;
 
 #if 0
+Local Variables:
+mode: scheme
+End:
+
 =cut
 #endif