1 files changed, 13 insertions, 0 deletions
diff --git a/swig/lv2_list.scm b/swig/lv2_list.scm
new file mode 100644
index 0000000..cc23e0d
--- /dev/null
+++ b/swig/lv2_list.scm
@@ -0,0 +1,13 @@
+; Least idiomatic scheme bindings ever.  Work in progress...
+
+(require-extension slv2)
+
+(define world (slv2-world-new))
+(slv2-world-load-all world)
+
+(define plugins (slv2-world-get-all-plugins world))
+
+(let ((p (slv2-plugins-get-at plugins 0)))
+  (display (slv2-value-as-string (slv2-plugin-get-uri p)))
+  (newline))
+