From: Taylor R. Campbell Date: Thu, 5 Apr 2007 22:42:35 +0000 (+0000) Subject: Use BUFFER-REMOVE!, rather than (BUFFER-PUT! ... #F). X-Git-Tag: 20090517-FFI~681 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=9ff48cd9b92f441e2b1a205e3381f304df2d20fa;p=mit-scheme.git Use BUFFER-REMOVE!, rather than (BUFFER-PUT! ... #F). --- diff --git a/v7/src/imail/imail-top.scm b/v7/src/imail/imail-top.scm index c6509130d..eb9efcfdc 100644 --- a/v7/src/imail/imail-top.scm +++ b/v7/src/imail/imail-top.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: imail-top.scm,v 1.300 2007/04/05 01:56:09 riastradh Exp $ +$Id: imail-top.scm,v 1.301 2007/04/05 22:42:35 riastradh Exp $ Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, @@ -2731,7 +2731,7 @@ Negative argument means search in reverse." => (lambda (expansions) (hash-table/remove! expansions key) (if (zero? (hash-table/count expansions)) - (buffer-put! buffer 'IMAIL-MIME-EXPANSIONS #f))))) + (buffer-remove! buffer 'IMAIL-MIME-EXPANSIONS))))) (hash-table/put! (or (buffer-get buffer 'IMAIL-MIME-EXPANSIONS #f) (let ((expansions (make-equal-hash-table)))