Gack even less.

offby1 · Jul 13, 2016 · 1264cff · 1264cff
1 parent 8567562
commit 1264cff
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 4 deletions.
diff --git a/search.rkt b/search.rkt
@@ -56,9 +56,11 @@
             (cons (hash-ref ht 'title)
                   (hash-ref ht 'link)))
           (and (not corrected)
-               (let ((correction (hash-ref (hash-ref blob 'spelling) 'correctedQuery)))
-                 (loop (hash-ref (search correction) 'items #f)
-                       #t)))
+               (let ((spelling  (hash-ref blob 'spelling #f)))
+                 (and spelling
+                      (let ((correction (hash-ref spelling 'correctedQuery)))
+                        (loop (hash-ref (search correction) 'items #f)
+                              #t)))))
           ))))
 
 (module+ test

diff --git a/servers.rkt b/servers.rkt
@@ -47,7 +47,7 @@
                      (c "frotz: plotz.")
                      (c "g property")
                      (c "g site:amazon.com shenengians during war")
-                     (c "g alkjdlsakjd")
+                     (c "g can you escape \\escaped \\\\escaping \\\\\\escapes in landscape capes\\?")
                      (c "everyone loves someone")
                      (c "plotz")
                      (meh "\1ACTION fred eats salami\1")