Extend list of file primitives to include a few that were missed.

diff --git a/v7/src/runtime/uerror.scm b/v7/src/runtime/uerror.scm
index d210def45187abeba237a62163388cf8a580263e..8f36852ee6eed4283f8e0e932ac273c47815d479 100644 (file)
--- a/v7/src/runtime/uerror.scm
+++ b/v7/src/runtime/uerror.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/uerror.scm,v 14.25 1991/05/10 00:03:55 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/uerror.scm,v 14.26 1991/05/13 22:44:14 cph Exp $
 
 Copyright (c) 1988-91 Massachusetts Institute of Technology
 
@@ -668,24 +668,30 @@ MIT in each case. |#
                       (error condition))))))))))
 
 (define file-primitives
-  (list (ucode-primitive file-open-input-channel 1)
-       (ucode-primitive file-open-output-channel 1)
-       (ucode-primitive file-open-io-channel 1)
-       (ucode-primitive file-open-append-channel 1)
-       (ucode-primitive file-exists? 1)
+  (list (ucode-primitive directory-make 1)
+       (ucode-primitive directory-open 1)
+       (ucode-primitive directory-open-noread 1)
        (ucode-primitive file-access 2)
+       (ucode-primitive file-attributes 1)
+       (ucode-primitive file-attributes-indirect 1)
+       (ucode-primitive file-copy 2)
        (ucode-primitive file-directory? 1)
-       (ucode-primitive file-soft-link? 1)
+       (ucode-primitive file-exists? 1)
+       (ucode-primitive file-link-hard 2)
+       (ucode-primitive file-link-soft 2)
+       (ucode-primitive file-mod-time-indirect 1)
+       (ucode-primitive file-modes 1)
+       (ucode-primitive file-open-append-channel 1)
+       (ucode-primitive file-open-input-channel 1)
+       (ucode-primitive file-open-io-channel 1)
+       (ucode-primitive file-open-output-channel 1)
        (ucode-primitive file-remove 1)
        (ucode-primitive file-remove-link 1)
        (ucode-primitive file-rename 2)
-       (ucode-primitive file-link-hard 2)
-       (ucode-primitive file-link-soft 2)
+       (ucode-primitive file-soft-link? 1)
+       (ucode-primitive file-touch 1)
        (ucode-primitive link-file 3)
-       (ucode-primitive file-copy 2)
-       (ucode-primitive directory-make 1)
-       (ucode-primitive directory-open 1)
-       (ucode-primitive directory-open-noread 1)))
+       (ucode-primitive set-file-modes! 2)))
 \f
 ;;;; FASLOAD Errors