1 files changed, 25 insertions, 0 deletions
diff --git a/ipl/packs/idol/linvktst.iol b/ipl/packs/idol/linvktst.iol
new file mode 100644
index 0000000..1cc75cb
--- /dev/null
+++ b/ipl/packs/idol/linvktst.iol
@@ -0,0 +1,25 @@
+#
+# List invocation for methods.  Icon uses binary ! but Idol
+# uses $! for "foreach", so list invocation is specified via $$.
+#
+
+class abang()
+  method a(args[])
+    write("a:")
+    every write (image(!args))
+  end
+end
+
+class bbang : abang()
+  method b(args[])
+    write("b:")
+    every write (image(!args))
+    return self $$ a(["yo"]|||args)
+  end
+end
+
+procedure main()
+  x := bbang()
+  x$b("yin","yang")
+
+end