1. Moritz Heidkamp
  2. plan

Commits

Moritz Heidkamp  committed 6c6730e

Make write-plan-dot handle non-symbolic step names

  • Participants
  • Parent commits 8163bc4
  • Branches master

Comments (0)

Files changed (1)

File plan-impl.scm

View file
 (define (write-plan-dot plan #!optional (out (current-output-port)) (name "plan"))
   @("Writes a Graphviz {{DOT}} representation of {{plan}} to the given {{out}} port."
     (@no-source))
-  (fprintf out "digraph ~S {~%" name)
+  (fprintf out "digraph ~S {~%" (->string name))
   (for-each (lambda (step)
-              (let ((name (symbol->string (car step))))
+              (let ((name (->string (car step))))
                 (for-each (lambda (dep)
-                            (fprintf out " ~S -> ~S;~%" (symbol->string dep) name)) ;
+                            (fprintf out " ~S -> ~S;~%" dep name)) ;
                           (or (cadr step) '()))))
             (plan-steps plan))
   (fprintf out "}~%"))