From 5f880ffc15d85a3438ca529779f2eef20f0fb751 Mon Sep 17 00:00:00 2001 From: Stephen Adams Date: Fri, 18 Jul 1997 04:03:01 +0000 Subject: [PATCH] Changed error for non-root access to a warning, so at least we can get a .crf file output. --- v7/src/cref/redpkg.scm | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) diff --git a/v7/src/cref/redpkg.scm b/v7/src/cref/redpkg.scm index 258aa7812..08ac82201 100644 --- a/v7/src/cref/redpkg.scm +++ b/v7/src/cref/redpkg.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: redpkg.scm,v 1.9 1996/04/23 21:16:54 cph Exp $ +$Id: redpkg.scm,v 1.10 1997/07/18 04:03:01 adams Exp $ Copyright (c) 1988-96 Massachusetts Institute of Technology @@ -180,11 +180,12 @@ MIT in each case. |# (primitive-procedure-name name) expression)) ((access? name) - (if (access-environment name) - (error "Non-root access" name)) - (make-reference root-package - (access-name name) - expression)) + (if (eq? (access-environment name) + system-global-environment) + (make-reference root-package + (access-name name) + expression) + (warn "Non-root access" (unsyntax name)))) (else (error "Illegal reference name" name))))) (if name -- 2.25.1