Changeset 15046 in project


Ignore:
Timestamp:
06/22/09 00:13:55 (11 years ago)
Author:
sjamaan
Message:

Add default to get-param

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/intarweb/trunk/header-parsers.scm

    r14997 r15046  
    2424;; Get one specific parameter from one header entry
    2525(define (get-param param contents #!optional (default #f))
    26   (alist-ref param (vector-ref contents 1) eq?))
     26  (alist-ref param (vector-ref contents 1) eq? default))
    2727
    2828;; Get-param, except if no quality is present return 1
Note: See TracChangeset for help on using the changeset viewer.