From 308a78856d5b98f40e08749a73a539e0638820b9 Mon Sep 17 00:00:00 2001
From: "Guillermo J. Rozas" <edu/mit/csail/zurich/gjr>
Date: Tue, 7 Jul 1992 00:26:17 +0000
Subject: [PATCH] Rename C name of primitive.

---
 v7/src/microcode/prosfs.c | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/v7/src/microcode/prosfs.c b/v7/src/microcode/prosfs.c
index f702af8e5..ded924454 100644
--- a/v7/src/microcode/prosfs.c
+++ b/v7/src/microcode/prosfs.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/prosfs.c,v 1.9 1992/07/06 23:42:04 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/prosfs.c,v 1.10 1992/07/07 00:26:17 jinx Exp $
 
 Copyright (c) 1987-1992 Massachusetts Institute of Technology
 
@@ -241,8 +241,8 @@ DEFINE_PRIMITIVE ("DIRECTORY-MAKE", Prim_directory_make, 1, 1,
   PRIMITIVE_RETURN (UNSPECIFIC);
 }
 
-DEFINE_PRIMITIVE ("DIRECTORY-DELETE", Prim_directory_make, 1, 1,
-  "Create a new directory, called NAME.")
+DEFINE_PRIMITIVE ("DIRECTORY-DELETE", Prim_directory_delete, 1, 1,
+  "Delete directory called NAME.")
 {
   PRIMITIVE_HEADER (1);
   OS_directory_delete (STRING_ARG (1));
-- 
2.25.1