From 047f5f91b5f0a89aeebba04b704a181bd7941feb Mon Sep 17 00:00:00 2001 From: Bojun Ren Date: Sun, 1 Jun 2025 11:09:39 +0800 Subject: [PATCH] fix(analysis): distinguish load-{library,program} from load procedure The guard-for procedures for load and load-{library,program} used to be identical. Set different guard-for arguments. --- analysis/dependency/rules/load.sls | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/analysis/dependency/rules/load.sls b/analysis/dependency/rules/load.sls index 15e2a972..41485edf 100644 --- a/analysis/dependency/rules/load.sls +++ b/analysis/dependency/rules/load.sls @@ -29,7 +29,7 @@ (if (null? target-file-node) target-file-node `(,target-file-node)) (apply append (map (lambda (index-node) (load-process root-file-node document index-node)) (index-node-children index-node)))))] [('load-library (? string? path) dummy ...) - (guard-for document index-node 'load '(chezscheme) '(rnrs) '(rnrs base) '(scheme)) + (guard-for document index-node 'load-library '(chezscheme) '(rnrs) '(rnrs base) '(scheme)) (let ([target-file-node (cond ; [(not (string? path)) '()] @@ -40,7 +40,7 @@ (if (null? target-file-node) target-file-node `(,target-file-node)) (apply append (map (lambda (index-node) (load-process root-file-node document index-node)) (index-node-children index-node)))))] [('load-program (? string? path) dummy ...) - (guard-for document index-node 'load '(chezscheme) '(rnrs) '(rnrs base) '(scheme)) + (guard-for document index-node 'load-program '(chezscheme) '(rnrs) '(rnrs base) '(scheme)) (let ([target-file-node (cond ; [(not (string? path)) '()]