diff --git a/analysis/dependency/rules/load.sls b/analysis/dependency/rules/load.sls index 15e2a97..41485ed 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)) '()]