2017-01-13: fix lines of form ,(fun ...)

fix lines of form ,(fun ...)

diff --git a/examples/duel.w b/examples/duel.w
--- a/examples/duel.w
+++ b/examples/duel.w
@@ -25,7 +25,7 @@ define : duel me other
       You fight like a Dairy Farmer!
   say-name ' : choose your answer
   say-words
-      : ,(string-join answers "\n  ")
+      ,(string-join answers "\n  ")
   let
     : answer : list-ref answers (string->number (format #f "~a" (peek-char)))
     drain-input (current-input-port)
diff --git a/examples/enter-three-witches.w b/examples/enter-three-witches.w
--- a/examples/enter-three-witches.w
+++ b/examples/enter-three-witches.w
@@ -65,6 +65,11 @@ define : color col
 define-syntax say-words 
     lambda (x)
         syntax-case x ()
+            ;; lines of form ,(...)
+            : _ (((unq (word words ...)))) (() lines ...)
+              #` begin if : equal 'unquote `unq
+              #` begin ; add an extra level of parens
+                 say-words ((((unq (word words ...))))) (() lines ...)
             : _ (((word words ...))) (() lines ...)
               #` begin
                  cond