From 696a761f96329d4d08690628b7bf4f1fe23b6492 Mon Sep 17 00:00:00 2001
From: Andy Wingo <wingo@pobox.com>
Date: Fri, 26 Sep 2008 17:35:37 +0200
Subject: [PATCH] rename psyntax.ss to psyntax.scm to hack around makefile foo

* ice-9/Makefile.am (SOURCES):
* ice-9/syncase.scm:
* ice-9/psyntax.scm: Renamve psyntax.ss to psyntax.scm. This way the
  guilec rules won't delete it on a make clean. Doh!
---
 ice-9/Makefile.am                 | 6 +++---
 ice-9/{psyntax.ss => psyntax.scm} | 0
 ice-9/syncase.scm                 | 2 +-
 3 files changed, 4 insertions(+), 4 deletions(-)
 rename ice-9/{psyntax.ss => psyntax.scm} (100%)

diff --git a/ice-9/Makefile.am b/ice-9/Makefile.am
index 717ee887c..ed6439699 100644
--- a/ice-9/Makefile.am
+++ b/ice-9/Makefile.am
@@ -36,7 +36,7 @@ SOURCES = psyntax-pp.scm boot-9.scm \
 	format.scm getopt-long.scm hcons.scm i18n.scm			\
 	lineio.scm ls.scm mapping.scm					\
 	networking.scm null.scm optargs.scm poe.scm popen.scm		\
-	posix.scm psyntax.ss q.scm r4rs.scm r5rs.scm			\
+	posix.scm psyntax.scm q.scm r4rs.scm r5rs.scm			\
 	rdelim.scm receive.scm regex.scm runq.scm rw.scm		\
 	safe-r5rs.scm safe.scm session.scm slib.scm stack-catch.scm	\
 	streams.scm string-fun.scm syncase.scm threads.scm		\
@@ -68,7 +68,7 @@ if MAINTAINER_MODE
 # In other words, to bootstrap this file, you need to do something like:
 #    GUILE_LOAD_PATH=/usr/local/share/guile/1.5.4 make psyntax-pp.scm
 include $(top_srcdir)/am/pre-inst-guile
-psyntax-pp.scm: psyntax.ss
+psyntax-pp.scm: psyntax.scm
 	$(preinstguile) -s $(srcdir)/compile-psyntax.scm \
-		$(srcdir)/psyntax.ss $(srcdir)/psyntax-pp.scm
+		$(srcdir)/psyntax.scm $(srcdir)/psyntax-pp.scm
 endif
diff --git a/ice-9/psyntax.ss b/ice-9/psyntax.scm
similarity index 100%
rename from ice-9/psyntax.ss
rename to ice-9/psyntax.scm
diff --git a/ice-9/syncase.scm b/ice-9/syncase.scm
index d8fea1e1e..5fd3a3214 100644
--- a/ice-9/syncase.scm
+++ b/ice-9/syncase.scm
@@ -213,7 +213,7 @@
 
 ;;; The following lines are necessary only if we start making changes
 ;; (use-syntax sc-expand)
-;; (load-from-path "ice-9/psyntax.ss")
+;; (load-from-path "ice-9/psyntax")
 
 (define internal-eval (nested-ref the-scm-module '(%app modules guile eval)))