hunk ./README 7 -(c) rohan drape, 1998-2008 +(c) rohan drape, 1998-2011 hunk ./help/dot.help.scm 1 -(import (rsc3) +(import (rhs) + (rsc3) hunk ./help/dot.help.scm 5 -(define (show t) +(define (show t) hunk ./help/dot.help.scm 10 - (record '((440 0) - (sin-osc) + (record '((440 0) + (sin-osc) hunk ./help/dot.help.scm 14 -(show - (attr '((color blue) +(show + (attr '((color blue) hunk ./help/dot.help.scm 18 -(show - (node `(ugen_0 ((shape record) - (color blue) - (label ,(record `((440 0) - (sin-osc) +(show + (node `(ugen_0 ((shape record) + (color blue) + (label ,(record `((440 0) + (sin-osc) hunk ./help/dot.help.scm 25 -(show +(show hunk ./help/dot.help.scm 29 - (digraph '(test ((a ()) + (digraph '(test ((a ()) hunk ./help/dot.help.scm 34 -(show - (digraph `(test +(show + (digraph `(test hunk ./help/dot.help.scm 37 - (label ,(record `((sin-osc 440 0) + (label ,(record `((sin-osc 440 0) hunk ./help/dot.help.scm 39 - (b ((color red)))) + (b ((color red)))) hunk ./help/rsc3-dot.help.scm 28 -(define g +(define g hunk ./help/rsc3-dot.help.scm 30 - "Test" + "Test" hunk ./help/rsc3-dot.help.scm 33 -(map1 +(map1 hunk ./help/rsc3-dot.help.scm 38 -(node - (ugen-to-node - g - (graphdef-ugen g 0) +(node + (ugen-to-node + g + (graphdef-ugen g 0) hunk ./help/rsc3-dot.help.scm 44 -(node - (control-to-node +(node + (control-to-node hunk ./help/rsc3-dot.help.scm 51 -(digraph +(digraph hunk ./src/dot.scm 19 - (list #\[ - (intersperse + (list #\[ + (intersperse hunk ./src/operator.scm 123 - (cond ((string=? (ugen-name u) "BinaryOpUGen") + (cond ((string=? (ugen-name u) "BinaryOpUGen") hunk ./src/operator.scm 125 - ((string=? (ugen-name u) "UnaryOpUGen") + ((string=? (ugen-name u) "UnaryOpUGen") hunk ./src/operator.scm 127 - (else + (else hunk ./src/rsc3-dot.scm 22 - (f + (f hunk ./src/rsc3-dot.scm 27 - (list->string + (list->string hunk ./src/rsc3-dot.scm 29 - (zip-with3 - f - (cons #f l) + (zip-with3 + f + (cons #f l) hunk ./src/rsc3-dot.scm 44 - (zip-with + (zip-with hunk ./src/rsc3-dot.scm 49 - i + i hunk ./src/rsc3-dot.scm 126 - (concat (zip-with + (concat (zip-with hunk ./src/rsc3-dot.scm 129 - u + u hunk ./src/rsc3-dot.scm 138 - (for-each + (for-each hunk ./src/rsc3-dot.scm 140 - (flatten - (digraph - (graphdef-to-dot + (flatten + (digraph + (graphdef-to-dot