From c5472b5ac891ce5d53d57968dc1f661958f6e975 Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Wed, 22 Oct 2014 16:12:31 -0700 Subject: [PATCH] For cref: quiet the last of the free variable reference complaints. Convert references to compiler global variables into environment-lookup combinations. --- src/runtime/swank.scm | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) diff --git a/src/runtime/swank.scm b/src/runtime/swank.scm index 13931fa53..efef453ca 100644 --- a/src/runtime/swank.scm +++ b/src/runtime/swank.scm @@ -349,7 +349,9 @@ USA. (call-compiler (lambda () (let ((env (buffer-env))) - (scode-eval (compile-scode (syntax `(begin ,@sexps) env) #t) + (scode-eval ((environment-lookup #f 'compile-scode) + (syntax `(begin ,@sexps) env) + #t) env)))))) (define (snarf-string string) @@ -374,7 +376,7 @@ USA. (lambda () (with-output-to-repl socket (lambda () - (compile-file file))))) + ((environment-lookup #f 'compile-file) file))))) (if (elisp-true? load?) (swank:load-file socket (pathname-new-type file "com")))) @@ -388,7 +390,7 @@ USA. socket (with-output-to-string (lambda () - (compiler:disassemble + ((environment-lookup #f 'compiler:disassemble) (eval (read-from-string string) (buffer-env)))))) @@ -1064,7 +1066,7 @@ swank:xref (stream (iline "block" (compiled-entry/block o)) (with-output-to-string (lambda () - (compiler:disassemble o))))))) + ((environment-lookup #f 'compiler:disassemble) o))))))) (define (inspect-code-block block) (let loop ((i (compiled-code-block/constants-start block))) @@ -1075,7 +1077,7 @@ swank:xref (iline "env" (compiled-code-block/environment block)) (with-output-to-string (lambda () - (compiler:disassemble block))))))) + ((environment-lookup #f 'compiler:disassemble) block))))))) (define (inspect-scode o) (stream (pprint-to-string o))) -- 2.25.1