Changeset 14735 in project


Ignore:
Timestamp:
05/22/09 06:42:16 (10 years ago)
Author:
Ivan Raikov
Message:

small fix to path-abempty.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/uri-generic/trunk/uri-generic.scm

    r14596 r14735  
    619619(define (path-abempty s)
    620620  (match ((consume slash-segment) s)
    621          ((() rst) (list (list) rst))
    622          ((path rst) (list (cons '/ path) rst))))
     621         ((() rst)    (list (list) rst))
     622         ((path rst)  (list (cons '/ path) rst))))
    623623
    624624(define (path-abs s)
Note: See TracChangeset for help on using the changeset viewer.