From baecc2dc2449d04b44917a5114bf71262d65da30 Mon Sep 17 00:00:00 2001
From: "Kjetil S. Matheussen" <ksvalast@users.sourceforge.net>
Date: Thu, 8 Jan 2004 14:55:24 +0000
Subject: First commit of k_vst~, k_guile and k_cext

svn path=/trunk/externals/k_guile/; revision=1253
---
 send_receive.scm | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)
 create mode 100644 send_receive.scm

(limited to 'send_receive.scm')

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)
+!#
+
-- 
cgit v1.2.1