Show quotes around strings in examples.

README.md

@@ -89,8 +89,8 @@ exposed as `acc`.
 
 ```cl
 (!reduce '+ '(1 2)) ;; => 3
-(!reduce (lambda (memo item) (format %s-%s memo item)) '(1 2 3)) ;; => 1-2-3
-(!!reduce (format %s-%s acc it) '(1 2 3)) ;; => 1-2-3
+(!reduce (lambda (memo item) (format "%s-%s" memo item)) '(1 2 3)) ;; => "1-2-3"
+(!!reduce (format "%s-%s" acc it) '(1 2 3)) ;; => "1-2-3"
 ```
 
 ### !filter `(fn list)`

examples-to-docs.el

@@ -5,7 +5,7 @@
 (defun example-to-string (example)
   (let ((actual (car example))
         (expected (cadr (cdr example))))
-    (format "%s ;; => %s" actual expected)))
+    (replace-regexp-in-string "\\\\\\?" "?" (format "%S ;; => %S" actual expected))))
 
 (defun examples-to-strings (examples)
   (let (result)