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 ac6bf952dc6a19f0cf00a2aef31368c8879c09d9..5c8050257eeb241d0483aa6a5ca4bed3cc213c7a 100644 (file)
--- 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))