From 8d893ead073ad1e046ca1c0b8f07c94aecfeebf7 Mon Sep 17 00:00:00 2001
From: Tianon Gravi <admwiggin@gmail.com>
Date: Tue, 19 Aug 2014 03:02:07 -0600
Subject: [PATCH] Add more complex example of (read) usage

---
 docs/language/core.rst | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)

diff --git a/docs/language/core.rst b/docs/language/core.rst
index 9236c25..f18eedf 100644
--- a/docs/language/core.rst
+++ b/docs/language/core.rst
@@ -930,6 +930,24 @@ parsed.
    => (eval (apply read [] {"from_file" buffer}))
    1
 
+   => ; assuming "example.hy" contains:
+   => ;   (print "hello")
+   => ;   (print "hyfriends!")
+   => (with [[f (open "example.hy")]]
+   ...   (try
+   ...     (while true
+   ...            (let [[exp (read f)]]
+   ...              (do
+   ...                (print "OHY" exp)
+   ...                (eval exp))))
+   ...     (catch [e EOFError]
+   ...            (print "EOF!"))))
+   OHY ('print' 'hello')
+   hello
+   OHY ('print' 'hyfriends!')
+   hyfriends!
+   EOF!
+
 
 .. _remove-fn: