From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 24 May 2001 17:51:14 +0000 (+0000)
Subject: Add some more resource->URL reflectors.
X-Git-Tag: 20090517-FFI~2790
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=a0fd315072853fcb3aeef7debe5c09995b3150b5;p=mit-scheme.git

Add some more resource->URL reflectors.
---

diff --git a/v7/src/imail/imail-core.scm b/v7/src/imail/imail-core.scm
index e0603ca7d..ae6042798 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.135 2001/05/24 17:46:42 cph Exp $
+;;; $Id: imail-core.scm,v 1.136 2001/05/24 17:51:14 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2001 Massachusetts Institute of Technology
 ;;;
@@ -370,6 +370,12 @@
 (define-method container-url-for-prompt ((resource <resource>))
   (container-url-for-prompt (resource-locator resource)))
 
+(define-method url-child-name ((resource <resource>))
+  (url-child-name (resource-locator resource)))
+
+(define-method url-base-name ((resource <resource>))
+  (url-base-name (resource-locator resource)))
+
 (define-class <folder> (<resource>))
 (define-class <container> (<resource>))
 
@@ -379,8 +385,11 @@
 (define-method %append-message (message (folder <folder>))
   (%append-message message (resource-locator folder)))
 
-(define-method make-child-url ((container <container>) name)
-  (make-child-url (resource-locator container) name))
+(define-method make-child-url ((container <container>) child-name)
+  (make-child-url (resource-locator container) child-name))
+
+(define-method container-url-contents ((container <container>))
+  (container-url-contents (resource-locator container)))
 
 (define (guarantee-folder folder procedure)
   (if (not (folder? folder))