Re: [Chicken-users] Absolute pathname bug?

[felix winkelmann]

On Sun, 16 Jan 2005 23:40:30 +0100, Peter Bex <address@hidden> wrote:
> Hi,
> 
> This appears to be a bug:
> 
> csi> (require-extension posix)
> ; loading library posix ...
> csi> (absolute-pathname? "/")
> #f
> csi> (absolute-pathname? "/foo")
> #t
> 
> If this is the intended behaviour, can someone explain the rationale?
> 

Argh. 

cd ~/stuff/chicken/
diff -c /home/fwinkel/stuff/chicken/utils.scm\~
/home/fwinkel/stuff/chicken/utils.scm
*** /home/fwinkel/stuff/chicken/utils.scm~      2004-11-23 07:21:12.000000000 
+0100
--- /home/fwinkel/stuff/chicken/utils.scm       2005-01-17 07:33:55.416130272 
+0100
***************
*** 88,94 ****
  ;;; Pathname operations:
  
  (define absolute-pathname?
!   (let ([rx (string-append "([A-Za-z]:)?[\\/\\" (string
pathname-directory-separator) "].+")]
        [string-match string-match] )
      (lambda (pn)
        (##sys#check-string pn 'absolute-pathname?)
--- 88,94 ----
  ;;; Pathname operations:
  
  (define absolute-pathname?
!   (let ([rx (string-append "([A-Za-z]:)?[\\/\\" (string
pathname-directory-separator) "].*")]
        [string-match string-match] )
      (lambda (pn)
        (##sys#check-string pn 'absolute-pathname?)

Diff finished at Mon Jan 17 07:36:04


cheers,
felix