From 45c3d05369ca40787c9b2d436a0b0add51ba019e Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Tue, 28 Feb 2017 14:44:34 +0000
Subject: [PATCH] New file

---
 examples/threading/parameters.scm | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)
 create mode 100644 examples/threading/parameters.scm

diff --git a/examples/threading/parameters.scm b/examples/threading/parameters.scm
new file mode 100644
index 00000000..7221cae8
--- /dev/null
+++ b/examples/threading/parameters.scm
@@ -0,0 +1,25 @@
+;; A simple program demonstrating how parameter objects interact with threads
+(import (scheme base)
+        (scheme read)
+        (scheme write)
+        (srfi 18)
+        )
+
+(thread-start!
+  (make-thread
+    (lambda ()
+      (thread-sleep! 1000)
+      (display "started thread, this should be written to console")
+      (newline)
+      (display "thread done")
+      (newline))))
+
+(write `(1 2 3))
+(define fp (open-output-file "tmp.txt"))
+(parameterize
+  ((current-output-port fp))
+  (write `(4 5 6))
+  (thread-sleep! 5000)
+)
+(close-port fp)
+(write `(7 8 9))