;;; default.sls --- provides the `default-rcs' parameter

;; Copyright (C) 2008, 2009 Andreas Rottmann <a.rottmann@gmx.at>

;; Author: Andreas Rottmann <a.rottmann@gmx.at>

;; This program is free software; you can redistribute it and/or
;; modify it under the terms of the GNU General Public License
;; as published by the Free Software Foundation; either version 3
;; of the License, or (at your option) any later version.

;; This program 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 General Public License for more details.

;; You should have received a copy of the GNU General Public License
;; along with this program. If not, see <http://www.gnu.org/licenses/>.

;;; Commentary:

;;; Code:
#!r6rs

(library (conjure rcs default)
  (export default-rcs
          get-rcs)
  (import (rnrs base)
          (srfi :39 parameters)
          (conjure rcs darcs)
          (conjure rcs bzr)
          (conjure rcs git))

  (define default-rcs (make-parameter darcs))

  (define (get-rcs name)
    (case name
      ((darcs) darcs)
      ((bzr)   bzr)
      ((git)   git)
      (else
       (error 'make-rcs "unknown RCS" name))))
  )
