From 9449acd73a2e369f316798939587223616b6f7d9 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Sun, 24 Jul 1994 21:48:48 +0000 Subject: [PATCH] Add entry to trap system-call errors for the delete-directory primitive and convert them into file-operation errors. --- v7/src/runtime/uerror.scm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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)) -- 2.25.1