FM / rnrs

/usr/share/guile/2.0/rnrs

Name	Size	Mode	Actions
arithmetic/	-	0755	rm
io/	-	0755	rm
records/	-	0755	rm
base.scm	10294	0644	edit dl rm
bytevectors.scm	3383	0644	edit dl rm
conditions.scm	6998	0644	edit dl rm
control.scm	986	0644	edit dl rm
enums.scm	5463	0644	edit dl rm
eval.scm	1435	0644	edit dl rm
exceptions.scm	12200	0644	edit dl rm
files.scm	3406	0644	edit dl rm
hashtables.scm	6169	0644	edit dl rm
lists.scm	2032	0644	edit dl rm
mutable-pairs.scm	969	0644	edit dl rm
mutable-strings.scm	989	0644	edit dl rm
programs.scm	964	0644	edit dl rm
r5rs.scm	1238	0644	edit dl rm
sorting.scm	1201	0644	edit dl rm
syntax-case.scm	1896	0644	edit dl rm
unicode.scm	2344	0644	edit dl rm

Edit: /usr/share/guile/2.0/rnrs/sorting.scm (1201B)

;;; sorting.scm --- The R6RS sorting library

;;      Copyright (C) 2010 Free Software Foundation, Inc.
;;
;; This library is free software; you can redistribute it and/or
;; modify it under the terms of the GNU Lesser General Public
;; License as published by the Free Software Foundation; either
;; version 3 of the License, or (at your option) any later version.
;; 
;; This library is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
;; Lesser General Public License for more details.
;; 
;; You should have received a copy of the GNU Lesser General Public
;; License along with this library; if not, write to the Free Software
;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA

(library (rnrs sorting (6))
  (export list-sort vector-sort vector-sort!)
  (import (rnrs base (6))
          (only (guile) *unspecified* stable-sort sort!))

(define (list-sort proc list) (stable-sort list proc))
  (define (vector-sort proc vector) (stable-sort vector proc))
  (define (vector-sort! proc vector) (sort! vector proc) *unspecified*))

cmd: