Changeset 15039 in project


Ignore:
Timestamp:
06/20/09 18:57:44 (10 years ago)
Author:
certainty
Message:

fixed typo. simplyified expression

File:
1 edited

Legend:

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

    r14520 r15039  
    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"))
Note: See TracChangeset for help on using the changeset viewer.