From 3bbe120a67c2d8e51f2345101de2ea4643fb784f Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 26 Jan 1991 03:21:15 +0000
Subject: [PATCH] Define `make-directory'.

---
 v7/src/runtime/unxprm.scm | 12 +++++++++---
 1 file changed, 9 insertions(+), 3 deletions(-)

diff --git a/v7/src/runtime/unxprm.scm b/v7/src/runtime/unxprm.scm
index 837a06cf8..5c6131a38 100644
--- a/v7/src/runtime/unxprm.scm
+++ b/v7/src/runtime/unxprm.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/unxprm.scm,v 1.9 1990/11/09 08:44:51 cph Rel $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/unxprm.scm,v 1.10 1991/01/26 03:21:15 cph Exp $
 
-Copyright (c) 1988, 1989 Massachusetts Institute of Technology
+Copyright (c) 1988-91 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -145,4 +145,10 @@ MIT in each case. |#
 		 (error-irritant/noise #\newline)
 		 (error-irritant/noise "within procedure")
 		 (ucode-primitive file-touch))
-	  result))))
\ No newline at end of file
+	  result))))
+
+(define (make-directory name)
+  ((ucode-primitive directory-make)
+   (pathname->string
+    (pathname-as-directory
+     (pathname->absolute-pathname (->pathname name))))))
\ No newline at end of file
-- 
2.25.1