Changeset 20810 in project


Ignore:
Timestamp:
10/11/10 18:34:18 (11 years ago)
Author:
certainty
Message:

dict: removed unneeded headers. Fixed missing whitespace.

File:
1 edited

Legend:

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

    r17894 r20810  
    1 ;;; dict.scm ---
    2 ;;
    3 ;; Filename: dict.scm
    4 ;; Description:
    51;; Author: David Krentzlin <david@lisp-unleashed.de>
    6 ;; Maintainer:
    7 ;; Created: Di Apr 14 21:34:48 2009 (CEST)
    8 ;; Version: $Id$
    9 ;; Version:
    10 ;; Last-Updated: Sa Apr 24 08:57:40 2010 (CEST)
    11 ;;           By: David Krentzlin
    12 ;;     Update #: 459
    13 ;; URL:
    14 ;; Keywords:
    15 ;; Compatibility:
    16 ;;
    17 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    18 ;;
    19 ;;; Commentary:
    20 ;;
    21 ;;
    22 ;;
    23 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    24 ;;
    25 ;;; Change log:
    26 ;;
    27 ;;
    28 ;; RCS $Log$
    29 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    30 ;;
    312;; Copyright (c) 2009 David Krentzlin <david@lisp-unleashed.de>
    323;;
     
    5324;;
    5425;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    55 ;;
    56 ;;; Code:
    57 
    58 
    59 (provide 'dict)
     26
     27
    6028(module dict
    6129  (status-response? response-status-code response-status-message response-status-code->string
     
    10977  (define (make-status-response code msg)
    11078    (unless (and (integer? code) (positive? code))
    111       (complain"First argument to make-status-response must be a positive integer"))
     79      (complain "First argument to make-status-response must be a positive integer"))
    11280    (unless (string? msg)
    11381      (complain "Second argument to make-status-response must be a non-empty string"))
Note: See TracChangeset for help on using the changeset viewer.