graphviz: better stack effect for with-preview.
parent
0b5ee9dce8
commit
4c06034ae0
|
@ -115,7 +115,7 @@ PRIVATE>
|
|||
[ unsupported-preview-format ]
|
||||
} case ;
|
||||
|
||||
:: with-preview ( graph quot -- )
|
||||
:: with-preview ( ..a graph quot: ( ..a path -- ..b ) -- ..b )
|
||||
[
|
||||
"preview" ".dot" [| code-file |
|
||||
"preview" preview-extension [| image-file |
|
||||
|
|
Loading…
Reference in New Issue