From d5c724d56e6f0d31d8c64ea91c1fa8430a0072e1 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sat, 8 Mar 2014 20:42:47 -0700
Subject: [PATCH] meta/new-web: adjust one example to use `define` instead of
 `let*`

---
 pkgs/plt-services/meta/new-web/www/index.rkt | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/pkgs/plt-services/meta/new-web/www/index.rkt b/pkgs/plt-services/meta/new-web/www/index.rkt
index 339a1ed20c..da2819660d 100644
--- a/pkgs/plt-services/meta/new-web/www/index.rkt
+++ b/pkgs/plt-services/meta/new-web/www/index.rkt
@@ -132,10 +132,10 @@
      @code{#lang racket ; Simple web scraper
            (require net/url net/uri-codec)
            (define (let-me-google-that-for-you str)
-             (let* ([g "http://www.google.com/search?q="]
-                    [u (string-append g (uri-encode str))]
-                    [rx #rx"(?<=<h3 class=\"r\">).*?(?=</h3>)"])
-               (regexp-match* rx (get-pure-port (string->url u)))))}
+             (define g "http://www.google.com/search?q=")
+             (define u (string-append g (uri-encode str)))
+             (define rx #rx"(?<=<h3 class=\"r\">).*?(?=</h3>)")
+             (regexp-match* rx (get-pure-port (string->url u))))}
      @desc{Add a call to @elemcode{let-me-google-that-for-you} to get a list of
        search results.})
     (cmdline-example #:title "Command Line Dice"; -----------------------------------------------