diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-03-01 22:11:19 +0100 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-03-01 22:11:19 +0100 |
| commit | 4ba4069a69522a88b96ff305c9ccf05d02d5e132 (patch) | |
| tree | 57c034a2d817ff9edc3b47552dd7f1c90ba0713b /scripts | |
| parent | Fix get-property reference in manual. (diff) | |
| download | calp-4ba4069a69522a88b96ff305c9ccf05d02d5e132.tar.gz calp-4ba4069a69522a88b96ff305c9ccf05d02d5e132.tar.xz | |
Whitespace cleanup in use2dot.
Diffstat (limited to 'scripts')
| -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) |