Fixed PR 7876
svn: r2797
This commit is contained in:
parent
39b09735a2
commit
ef2ab54bd2
|
@ -167,7 +167,7 @@ PLANNED FEATURES:
|
|||
(lambda (link) (apply printf " ~a\t~a\t~a ~a\n" link))
|
||||
(cdr module)))
|
||||
(sort (current-linkage)
|
||||
(lambda (a b) (string<? (symbol->string a) (symbol->string b))))))
|
||||
(lambda (a b) (string<? (symbol->string (car a)) (symbol->string (car b)))))))
|
||||
|
||||
(define (add-hard-link-cmd ownerstr pkgstr majstr minstr pathstr)
|
||||
(let* ([maj (read-from-string majstr)]
|
||||
|
|
Loading…
Reference in New Issue
Block a user