From: Chris Hanson Date: Tue, 7 Dec 2004 18:21:42 +0000 (+0000) Subject: Fix #f/() type error. X-Git-Tag: 20090517-FFI~1418 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=9b5e105eb53a45d31e0f7ca66c6c07f6012e04a1;p=mit-scheme.git Fix #f/() type error. --- diff --git a/v7/src/ssp/mod-lisp.scm b/v7/src/ssp/mod-lisp.scm index d8b197904..5d7dadfee 100644 --- a/v7/src/ssp/mod-lisp.scm +++ b/v7/src/ssp/mod-lisp.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: mod-lisp.scm,v 1.22 2004/11/26 15:14:15 cph Exp $ +$Id: mod-lisp.scm,v 1.23 2004/12/07 18:21:42 cph Exp $ Copyright 2003,2004 Massachusetts Institute of Technology @@ -481,7 +481,7 @@ USA. (define (add-header message keyword datum) (let ((new (list (cons keyword datum))) (tail (http-message-headers-tail message))) - (if tail + (if (pair? tail) (set-cdr! tail new) (set-http-message-headers! message new)) (set-http-message-headers-tail! message new)))