Changeset 33952 in project


Ignore:
Timestamp:
04/08/17 17:31:48 (8 months ago)
Author:
sjamaan
Message:

Deal with the possibility of "raw" in get-param as well

File:
1 edited

Legend:

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

    r33951 r33952  
    4949;; Get one specific parameter from one header entry
    5050(define (get-param param contents #!optional (default #f))
    51   (cond ((assq param (vector-ref contents 1)) => cdr)
    52         (else default)))
     51  (let ((params (vector-ref contents 1)))
     52    (cond ((not (pair? params)) default)
     53          ((assq param params) => cdr)
     54          (else default))))
    5355
    5456(define (get-no-newline-value header)
Note: See TracChangeset for help on using the changeset viewer.