zilch-cli-rust: fix ordering of append-dir

This commit is contained in:
puck 2025-03-03 15:13:27 +00:00
parent 974290206c
commit bac63118d2

View file

@ -104,9 +104,6 @@ executables in the crate, if unspecified)
(for-each check-dep (cargo-crate-dependencies crate)) (for-each check-dep (cargo-crate-dependencies crate))
(for-each check-dep (cargo-crate-build-dependencies crate))) (for-each check-dep (cargo-crate-build-dependencies crate)))
(when cargo-toml
(add-crate-targets crate-dir root-vfs cargo-toml #f))
(define seen-crate-names '()) (define seen-crate-names '())
(define (append-dir dirname vfs workspace) (define (append-dir dirname vfs workspace)
@ -119,6 +116,9 @@ executables in the crate, if unspecified)
(set! seen-crate-names (cons (cargo-crate-name parsed-cargo) seen-crate-names)) (set! seen-crate-names (cons (cargo-crate-name parsed-cargo) seen-crate-names))
(add-crate-targets dirname vfs parsed-cargo workspace))) (add-crate-targets dirname vfs parsed-cargo workspace)))
(when cargo-toml
(add-crate-targets crate-dir root-vfs cargo-toml #f))
(when cargo-workspace (when cargo-workspace
(for-each (for-each
(lambda (workspace-member) (lambda (workspace-member)