Commit 85184cbf authored by Arthur Lemmens's avatar Arthur Lemmens
Browse files

Make sure that S-DOT->SVG works for Windows too (by adding a FINISH-OUTPUT line).

parent fc61efd6
......@@ -103,6 +103,7 @@
and returns the resulting svg xml expression."
(pipe-through (input output "dot" "-Tsvg")
(s-dot:s-dot->dot input s-dot-expression)
(force-output input)
(unless (eq input output) (close input))
(let ((lines nil) (line nil))
(loop do (setf line (read-line output nil))
Supports Markdown
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