Changeset 15306 in project for release/4/scbib/trunk/scbib.scm


Ignore:
Timestamp:
08/03/09 08:10:41 (11 years ago)
Author:
Ivan Raikov
Message:

scbib documentation and bug fixes

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/scbib/trunk/scbib.scm

    r15281 r15306  
    1 ;;;
    2 ;;; scbib - a bibliography management system
    3 ;;;
    4 ;;; Copyright (C) 2004 Satoru Takabayashi <satoru@namazu.org>
    5 ;;;     All rights reserved.
    6 ;;;     This is free software with ABSOLUTELY NO WARRANTY.
    7 ;;;
    8 ;;; You can redistribute it and/or modify it under the terms of
    9 ;;; the Gauche's licence.
    10 ;;;
    11 ;;; Ported to Chicken Scheme and modified by Ivan Raikov.
     1;;
     2;; scbib - a bibliography management system
     3;;
     4;; Copyright (C) 2004 Satoru Takabayashi <satoru@namazu.org>
     5;;
     6;; Ported to Chicken Scheme and modified by Ivan Raikov.
     7;;
     8;;
     9;; This program is free software: you can redistribute it and/or
     10;; modify it under the terms of the GNU General Public License as
     11;; published by the Free Software Foundation, either version 3 of the
     12;; License, or (at your option) any later version.
     13;;
     14;; This program is distributed in the hope that it will be useful, but
     15;; WITHOUT ANY WARRANTY; without even the implied warranty of
     16;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
     17;; General Public License for more details.
     18;;
     19;; A full copy of the GPL license can be found at
     20;; <http://www.gnu.org/licenses/>.
    1221
    1322(module scbib
     
    3140   )
    3241
    33   (import scheme chicken srfi-1 regex extras files posix data-structures)
     42  (import scheme chicken)
     43  (require-extension srfi-1 regex extras files posix data-structures datatype)
     44 
     45
    3446
    3547;; DBs
     
    5062
    5163(define (scbib-values item name)
    52   (let ((name (->string name)))
     64  (let ((name (if (symbol? name) name (string->symbol name))))
    5365    (cond ((null? item)
    5466           #f)
Note: See TracChangeset for help on using the changeset viewer.