>From 5db39b8846fe5ec4abd33e8492608a91accf7c13 Mon Sep 17 00:00:00 2001
From: Mario Domenech Goulart <address@hidden>
Date: Tue, 2 Jul 2013 07:19:01 -0300
Subject: [PATCH] Deprecate implicit $VAR- and ~-expansion in pathnames

---
 NEWS        |    1 +
 library.scm |    2 ++
 2 files changed, 3 insertions(+)

diff --git a/NEWS b/NEWS
index d92b5cb..a13e423 100644
--- a/NEWS
+++ b/NEWS
@@ -42,6 +42,7 @@
   - posix: find-file's test argument now also accepts SRE forms.
   - numerator and denominator now accept inexact numbers, as per R5RS
     (reported by John Cowan).
+  - Implicit $VAR- and ~-expansion in pathnames have been deprecated (#1001)
 
 - Runtime system
   - Special events in poll() are now handled, avoiding hangs in threaded apps.
diff --git a/library.scm b/library.scm
index 11350ac..7b5c61b 100644
--- a/library.scm
+++ b/library.scm
@@ -1950,6 +1950,8 @@ EOF
 (define (##sys#pathname-resolution name thunk . _)
   (thunk (##sys#expand-home-path name)) )
 
+;; DEPRECATED: implicit $VAR- and ~-expansion will be removed in
+;; future versions.  See ticket #1001
 (define ##sys#expand-home-path
   (lambda (path)
     (let ((len (##sys#size path)))
-- 
1.7.10.4