Commit 498d5113 authored by Michael Raskin's avatar Michael Raskin

Syncing from Monotone at 20190125-024541. Last commit message was Try to do some minor fixing

parent cb08a878
......@@ -534,12 +534,17 @@
`(mk-pair-generator
,var
,(ast-eval (seventh x))
(mk-dir (car ,var) :eval
(let ((,var (cadr ,var)))
(list
,@(ast-eval (ninth x))
)
)))))
(progn
;(cl-fuse::fuse-complain "Name: ~s~%" ,var)
(mk-dir (cl-fuse::string-to-octets
(car ,var)
cl-fuse-meta-fs::*meta-fs-name-encoding*)
:eval
(let ((,var (cadr ,var)))
(list
,@(ast-eval (ninth x))
)
))))))
(def-peg-fun
query-fs-sql2::file (x)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment