From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 24 Jul 1994 21:48:48 +0000 (+0000)
Subject: Add entry to trap system-call errors for the delete-directory
X-Git-Tag: 20090517-FFI~7153
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=9449acd73a2e369f316798939587223616b6f7d9;p=mit-scheme.git

Add entry to trap system-call errors for the delete-directory
primitive and convert them into file-operation errors.
---

diff --git a/v7/src/runtime/uerror.scm b/v7/src/runtime/uerror.scm
index ac6bf952d..5c8050257 100644
--- a/v7/src/runtime/uerror.scm
+++ b/v7/src/runtime/uerror.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: uerror.scm,v 14.38 1993/12/21 23:32:46 cph Exp $
+$Id: uerror.scm,v 14.39 1994/07/24 21:48:48 cph Exp $
 
 Copyright (c) 1988-93 Massachusetts Institute of Technology
 
@@ -340,6 +340,8 @@ MIT in each case. |#
 	 (values "read attributes of" "file"))
 	((eq? primitive (ucode-primitive directory-make 1))
 	 (values "create" "directory"))
+	((eq? primitive (ucode-primitive directory-delete 1))
+	 (values "delete" "directory"))
 	((eq? primitive (ucode-primitive file-copy 2))
 	 (values "copy" "file"))
 	((or (eq? primitive (ucode-primitive file-link-hard 2))