diff options
author | Kjetil S. Matheussen <ksvalast@users.sourceforge.net> | 2004-01-08 14:55:24 +0000 |
---|---|---|
committer | Kjetil S. Matheussen <ksvalast@users.sourceforge.net> | 2004-01-08 14:55:24 +0000 |
commit | baecc2dc2449d04b44917a5114bf71262d65da30 (patch) | |
tree | e3d689fdea7014bee64484aadd7ccae151948dbc /send_receive.scm |
First commit of k_vst~, k_guile and k_cextsvn2git-root
svn path=/trunk/externals/k_guile/; revision=1253
Diffstat (limited to 'send_receive.scm')
-rw-r--r-- | send_receive.scm | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/send_receive.scm b/send_receive.scm new file mode 100644 index 0000000..bae7668 --- /dev/null +++ b/send_receive.scm @@ -0,0 +1,24 @@ + + + +;; Send out what comes in. +(pd-bind 'in + (lambda (arg) + (pd-send 'out arg))) + + +#! +;; This one does the same and is faster, but requires some more typing: +(let ((s-out (pd-get-symbol 'out))) + (pd-bind 'in + (lambda (arg) + (pd-send s-out arg)))) +!# + + +#! +;; And the following example will (most probably) lead to a segmentation fault: +;; This is also the only way I can think of right now that will make pd segfault using the pd- interface. +(pd-send 5 arg) +!# + |