From: Joe Marshall <eval.apply@gmail.com>
Date: Thu, 24 May 2012 18:46:42 +0000 (-0700)
Subject: Use quote instead of tick mark.
X-Git-Tag: release-9.2.0~247^2~1
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=088c85adb449401bf2dc800059203b1fef44844f;p=mit-scheme.git

Use quote instead of tick mark.
---

diff --git a/src/etc/compile.sh b/src/etc/compile.sh
index 17791001b..3f489bb06 100755
--- a/src/etc/compile.sh
+++ b/src/etc/compile.sh
@@ -32,7 +32,7 @@ run_cmd "${@}" <<EOF
   (show-time
     (lambda ()
       (compile-cref compile-dir)
-      (for-each compile-dir '("runtime" "star-parser" "sf"))))
+      (for-each compile-dir (quote ("runtime" "star-parser" "sf")))))
   (newline))
 EOF
 
@@ -47,7 +47,7 @@ EOF
 # Syntax the new compiler in fresh (compiler) packages.  Use the new sf too.
 run_cmd ./microcode/scheme --batch-mode --library lib --band runtime.com <<EOF
 (begin
-  (load-option 'SF)
+  (load-option (quote SF))
   (with-working-directory-pathname "compiler/"
     (lambda ()
       (show-time
@@ -65,7 +65,7 @@ EOF
 
 run_cmd ./microcode/scheme --batch-mode --library lib --band runtime.com <<EOF
 (begin
-  (load-option 'COMPILER)
+  (load-option (quote COMPILER))
   (load "etc/compile.scm")
   (show-time
     (lambda ()