From 5c142f3c17c9d007743dc0de4d56705634ff9930 Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Mon, 30 Jul 1990 04:01:23 +0000 Subject: [PATCH] Remove reference to primitive file-read-char (gone), and use new names for file primitives. --- v7/src/runtime/uerror.scm | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/v7/src/runtime/uerror.scm b/v7/src/runtime/uerror.scm index 13d5f1bea..c2c6763c1 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.14 1990/06/20 20:30:31 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/uerror.scm,v 14.15 1990/07/30 04:01:23 jinx Exp $ Copyright (c) 1988, 1989, 1990 Massachusetts Institute of Technology @@ -607,12 +607,12 @@ MIT in each case. |# (define-error-handler 'EXTERNAL-RETURN return-address (internal-apply-frame/operator-filter (ucode-primitive file-length) - (ucode-primitive file-read-char) + ;; (ucode-primitive file-read-char) ; -gone. (ucode-primitive file-write-char) (ucode-primitive file-write-string) - (ucode-primitive copy-file) - (ucode-primitive rename-file) - (ucode-primitive remove-file) + (ucode-primitive file-copy) + (ucode-primitive file-rename) + (ucode-primitive file-remove) (ucode-primitive link-file) (ucode-primitive set-file-modes! 2)) file-error))) -- 2.25.1