From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Tue, 7 Jul 1992 00:26:17 +0000 (+0000)
Subject: Rename C name of primitive.
X-Git-Tag: 20090517-FFI~9233
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=308a78856d5b98f40e08749a73a539e0638820b9;p=mit-scheme.git

Rename C name of primitive.
---

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));