simon/jolt
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add File .isAbsolute and the default #inst/#uuid data readers

Browse source 
jfile lacked .isAbsolute (path starts with /). clojure.core/default-data-readers
and *data-readers* were nil, so a library merging them (aero's reader opts)
couldn't resolve #inst. Define them keyed by symbol, like Clojure.
This commit is contained in:
Yogthos 2026-06-24 11:03:34 -04:00
parent b2394325d4
commit 7947918919
2 changed files with 9 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
host/chez/io.ss
View file

@ -100,6 +100,7 @@
((string=? name "exists") (list (if (file-exists? p) #t #f)))
((string=? name "isDirectory") (list (if (file-directory? p) #t #f)))
((string=? name "isFile") (list (if (and (file-exists? p) (not (file-directory? p))) #t #f)))
((string=? name "isAbsolute") (list (if (and (> (string-length p) 0) (char=? (string-ref p 0) #\/)) #t #f)))
((string=? name "listFiles") (list (list->cseq (map make-jfile (jolt-list-dir p)))))
((string=? name "getParent")
(let loop ((i (- (string-length p) 1)))