Changeset 17895 in project


Ignore:
Timestamp:
04/24/10 08:24:46 (9 years ago)
Author:
certainty
Message:

version bump and new tag

Location:
release/4/dict
Files:
3 edited
4 copied

Legend:

Unmodified
Added
Removed
  • release/4/dict/tags/2.2/dict.scm

    r14520 r17895  
    88;; Version: $Id$
    99;; Version:
    10 ;; Last-Updated: Sa Mai  2 11:31:01 2009 (CEST)
     10;; Last-Updated: Sa Jun 20 19:11:44 2009 (CEST)
    1111;;           By: David Krentzlin <david@lisp-unleashed.de>
    12 ;;     Update #: 447
     12;;     Update #: 453
    1313;; URL:
    1414;; Keywords:
     
    9393           (append (if loc (list 'location loc)  '())
    9494                   (if msg (list 'message msg) '())
    95                    (if (and args (not (null? args))) (list 'arguments args) '()))))
     95                   (if (not (null? args)) (list 'arguments args) '()))))
    9696
    9797  (define (complain msg . args)
    9898    (signal (apply make-exn-condition #f msg args)))
    9999
    100   ;;there are two kinds of answer we can expect from the
     100  ;;there are two kinds of answers we can expect from the
    101101  ;;dict-server.
    102102  ;;1) a status response which consists of a numeric status-code
     
    127127
    128128  (define (response-status-code->string  code)
    129     (let ((entry (alist-ref code +status-texts+)))
    130       (if entry entry "")))
     129    (or (alist-ref code +status-texts+) ""))
    131130
    132131  (define (response-status-error? resp)
     
    224223  (define (make-banner text msg-id cap)
    225224    (unless (list? cap)
    226       (complain "capabilities must be a string"))
     225      (complain "capabilities must be a list"))
    227226    (unless (and (string? text) (string? msg-id))
    228227      (complain "text and msg-id must be strings"))
  • release/4/dict/tags/2.3/dict.setup

    r14520 r17895  
    55  'dict
    66  '("dict.import.so" "dict.so")
    7   '((version 2.2)
     7  '((version 2.3)
    88    (documentation "dict.html")))
  • release/4/dict/trunk/dict.setup

    r14520 r17895  
    55  'dict
    66  '("dict.import.so" "dict.so")
    7   '((version 2.2)
     7  '((version 2.3)
    88    (documentation "dict.html")))
Note: See TracChangeset for help on using the changeset viewer.