~ chicken-core (chicken-5) 5162cc446c613ce180fcb001179ade7ede36d49a

commit 5162cc446c613ce180fcb001179ade7ede36d49a
Author:     Mario Domenech Goulart <mario.goulart@gmail.com>
AuthorDate: Tue Jul 2 07:19:01 2013 -0300
Commit:     Peter Bex <peter.bex@xs4all.nl>
CommitDate: Thu Jul 4 20:02:42 2013 +0200

    Deprecate implicit $VAR- and ~-expansion in pathnames
    
    Signed-off-by: Peter Bex <peter.bex@xs4all.nl>

diff --git a/NEWS b/NEWS
index d92b5cb0..a13e4232 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 11350ac0..7b5c61ba 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)))