From 0bbe199d4d959aa33cbfded0d543728a79d3b1ad Mon Sep 17 00:00:00 2001
From: Andy Wingo <wingo@pobox.com>
Date: Fri, 11 Jun 2010 11:40:31 +0200
Subject: [PATCH] deprecate `scheme-file-suffix'

* module/ice-9/boot-9.scm:
* module/ice-9/deprecated.scm (scheme-file-suffix): Deprecate.
---
 module/ice-9/boot-9.scm     | 4 ----
 module/ice-9/deprecated.scm | 9 ++++++++-
 2 files changed, 8 insertions(+), 5 deletions(-)

diff --git a/module/ice-9/boot-9.scm b/module/ice-9/boot-9.scm
index 2a24a87ca..89bff9469 100644
--- a/module/ice-9/boot-9.scm
+++ b/module/ice-9/boot-9.scm
@@ -995,10 +995,6 @@ If there is no handler at all, Guile prints an error and then exits."
 ;;; {Load Paths}
 ;;;
 
-;;; Here for backward compatability
-;;
-(define scheme-file-suffix (lambda () ".scm"))
-
 (define (in-vicinity vicinity file)
   (let ((tail (let ((len (string-length vicinity)))
                 (if (zero? len)
diff --git a/module/ice-9/deprecated.scm b/module/ice-9/deprecated.scm
index 6c57514bb..bfc490f39 100644
--- a/module/ice-9/deprecated.scm
+++ b/module/ice-9/deprecated.scm
@@ -44,7 +44,8 @@
             error-catching-repl
             scm-style-repl
             apply-to-args
-            has-suffix?)
+            has-suffix?
+            scheme-file-suffix)
 
   #:replace (module-ref-submodule module-define-submodule!))
 
@@ -408,3 +409,9 @@ better yet, use the repl from `(system repl repl)'.")
   (issue-deprecation-warning 
    "`has-suffix?' is deprecated. Use `string-suffix?' instead (args reversed).")
   (string-suffix? suffix str))
+
+(define scheme-file-suffix
+  (lambda ()
+    (issue-deprecation-warning
+     "`scheme-file-suffix' is deprecated. Use `%load-extensions' instead.")
+    ".scm"))