puck/zilch
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(zilch magic): refuse to handle self-references

Browse source
This commit is contained in:
puck 2025-05-11 22:21:07 +00:00
parent 9b03914ec1
commit 8e2f0f3014
1 changed files with 4 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

4
core/src/magic.sld
View file

@ -56,6 +56,10 @@
(define references-filtered (list-copy references)) (define references-filtered (list-copy references))
(define self-references (member path references-filtered string=?)) (define self-references (member path references-filtered string=?))
(when self-references (when self-references
; It turns out these are broken in both Nix and Lix.
; Also, I now don't have to implement the _second_ type of modulo
; hash in Scheme, so that's a win for me.
(error "Refusing to import self-referenced CA path into the store.")
(if (null? (cdr self-references)) (if (null? (cdr self-references))
(set! references-filtered '()) (set! references-filtered '())
(begin (begin