From d0a633be750e49ec2ada6123adf46ca72197081b Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Fri, 3 Feb 2017 17:17:13 -0700 Subject: [PATCH] svm: Quiet warnings about access. --- src/compiler/machines/svm/decls.scm | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) diff --git a/src/compiler/machines/svm/decls.scm b/src/compiler/machines/svm/decls.scm index 4c89bb3a9..be89c1925 100644 --- a/src/compiler/machines/svm/decls.scm +++ b/src/compiler/machines/svm/decls.scm @@ -43,13 +43,15 @@ USA. (if (null? source-nodes) (setup-source-nodes!))) +(define (access* binding-name environment) + (environment-lookup (->environment environment) binding-name)) + (define (setup-source-nodes!) - (define xref (->environment '(cross-reference))) - (define read-package-model (access read-package-model xref)) - (define pmodel/packages (access pmodel/packages xref)) - (define package/name (access package/name xref)) - (define package/files (access package/files xref)) + (define read-package-model (access* 'read-package-model '(cross-reference))) + (define pmodel/packages (access* 'pmodel/packages '(cross-reference))) + (define package/name (access* 'package/name '(cross-reference))) + (define package/files (access* 'package/files '(cross-reference))) ;; Assume there are no os-specific files or packages. (define pmodel (read-package-model "compiler" 'unix)) -- 2.25.1