From f3a69130ec28701b5574b9a03ba0c09627384fc5 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Mon, 13 May 1991 22:44:14 +0000 Subject: [PATCH] Extend list of file primitives to include a few that were missed. --- v7/src/runtime/uerror.scm | 32 +++++++++++++++++++------------- 1 file changed, 19 insertions(+), 13 deletions(-) diff --git a/v7/src/runtime/uerror.scm b/v7/src/runtime/uerror.scm index d210def45..8f36852ee 100644 --- 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))) ;;;; FASLOAD Errors -- 2.25.1