diff options
-rwxr-xr-x | scripts/use2dot/gen-use.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/scripts/use2dot/gen-use.scm b/scripts/use2dot/gen-use.scm index 02785088..e02be9bd 100755 --- a/scripts/use2dot/gen-use.scm +++ b/scripts/use2dot/gen-use.scm @@ -133,7 +133,7 @@ (for-each (lambda (edge) - (let ((gv-edge (gv.edge graph + (let ((gv-edge (gv.edge graph (format #f "~a" (edge-down edge)) (format #f "~a" (edge-up edge)) ))) @@ -144,7 +144,7 @@ (not (memv (car (edge-down edge)) '(vcomponent calp )))) (gv.setv gv-edge "color" "blue")) )) - (remove-edges '((srfi srfi-1) + (remove-edges '((srfi srfi-1) (srfi srfi-9) (srfi srfi-26) (srfi srfi-41) |