From: Henry M. Wu <edu/mit/csail/zurich/mhwu>
Date: Wed, 13 May 1992 00:56:12 +0000 (+0000)
Subject: Deleted bogus primitives.
X-Git-Tag: 20090517-FFI~9414
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=7af24c9c7918777569dafebff8af9297c0156623;p=mit-scheme.git

Deleted bogus primitives.
---

diff --git a/v7/src/runtime/dosprm.scm b/v7/src/runtime/dosprm.scm
index efd49aa38..62a45b800 100644
--- a/v7/src/runtime/dosprm.scm
+++ b/v7/src/runtime/dosprm.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/dosprm.scm,v 1.1 1992/04/11 23:48:57 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/dosprm.scm,v 1.2 1992/05/13 00:56:12 mhwu Exp $
 
 Copyright (c) 1992 Massachusetts Institute of Technology
 
@@ -122,32 +122,16 @@ MIT in each case. |#
 (define-integrable dos/current-user-name
   (ucode-primitive current-user-name))
 
-(define-integrable dos/current-uid
-  (ucode-primitive current-uid))
-
-(define-integrable dos/current-gid
-  (ucode-primitive current-gid))
-
 (define-integrable dos/current-file-time
   (ucode-primitive current-file-time))
 
 (define-integrable dos/file-time->string
   (ucode-primitive file-time->string))
 
-(define (dos/uid->string uid)
-  (or ((ucode-primitive uid->string) uid)
-      (number->string uid 10)))
-
-(define (dos/gid->string gid)
-  (or ((ucode-primitive gid->string) gid)
-      (number->string gid 10)))
-
-(define-integrable dos/system
-  (ucode-primitive system))
-
 (define (file-touch filename)
   ((ucode-primitive file-touch) (->namestring (merge-pathnames filename))))
 
 (define (make-directory name)
   ((ucode-primitive directory-make)
-   (->namestring (pathname-as-directory (merge-pathnames name)))))
\ No newline at end of file
+   (->namestring (pathname-as-directory (merge-pathnames name)))))
+ 
\ No newline at end of file