From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 24 May 2001 01:19:47 +0000 (+0000)
Subject: Rename the following server operations, then add methods to them to
X-Git-Tag: 20090517-FFI~2794
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=6cc99c4ae55a5d4dda9e54892f6f5592e4ad8005;p=mit-scheme.git

Rename the following server operations, then add methods to them to
support containers as well as folders:

    create-folder	=>	create-resource
    delete-folder	=>	delete-resource
    rename-folder	=>	rename-resource
---

diff --git a/v7/src/imail/imail-core.scm b/v7/src/imail/imail-core.scm
index cb2aefc5f..ca929ccd4 100644
--- a/v7/src/imail/imail-core.scm
+++ b/v7/src/imail/imail-core.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: imail-core.scm,v 1.132 2001/05/24 01:18:45 cph Exp $
+;;; $Id: imail-core.scm,v 1.133 2001/05/24 01:19:47 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2001 Massachusetts Institute of Technology
 ;;;
@@ -329,10 +329,10 @@
 (define-generic resource-type-name (resource))
 (define-method resource-type-name ((r <resource>)) r 'RESOURCE)
 
-(define-generic url-protocol ((resource <resource>))
+(define-method url-protocol ((resource <resource>))
   (url-protocol (resource-locator resource)))
 
-(define-generic url-body ((resource <resource>))
+(define-method url-body ((resource <resource>))
   (url-body (resource-locator resource)))
 
 (define-method container-url ((resource <resource>))