Changeset 9376 in project


Ignore:
Timestamp:
03/09/08 16:49:05 (12 years ago)
Author:
Kon Lovett
Message:

Fix for use of deperecated variable.

Location:
release/3/fspath
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • release/3/fspath/tags/0.2/fspath.scm

    r6452 r9376  
    3333    (inline)
    3434    (no-procedure-checks)
    35     (always-bound
    36       ##sys#pathname-directory-separator
    37       ##sys#pathname-directory-separator-string)
    3835    (bound-to-procedure
    3936      fs:filename=?)
     
    168165;;; Namestring separators
    169166
    170 #;(define *dirsepchr* ##sys#pathname-directory-separator)
    171 (define *dirsepstr*   ##sys#pathname-directory-separator-string)
    172 
    173167(cond-expand
    174168  [windows
    175169
     170    (define *dirsepstr* "\\")
    176171    (define *unchstsepstr* "\\\\")
    177172    (define *dirsepstrset* "\\/")
     
    184179  [unix
    185180
     181    (define *dirsepstr* "/")
    186182    (define *unchstsepstr* "//")
    187183    (define *dirsepstrset* *dirsepstr*)
  • release/3/fspath/trunk/fspath.scm

    r6452 r9376  
    3333    (inline)
    3434    (no-procedure-checks)
    35     (always-bound
    36       ##sys#pathname-directory-separator
    37       ##sys#pathname-directory-separator-string)
    3835    (bound-to-procedure
    3936      fs:filename=?)
     
    168165;;; Namestring separators
    169166
    170 #;(define *dirsepchr* ##sys#pathname-directory-separator)
    171 (define *dirsepstr*   ##sys#pathname-directory-separator-string)
    172 
    173167(cond-expand
    174168  [windows
    175169
     170    (define *dirsepstr* "\\")
    176171    (define *unchstsepstr* "\\\\")
    177172    (define *dirsepstrset* "\\/")
     
    184179  [unix
    185180
     181    (define *dirsepstr* "/")
    186182    (define *unchstsepstr* "//")
    187183    (define *dirsepstrset* *dirsepstr*)
Note: See TracChangeset for help on using the changeset viewer.