use "cut" again, just to be super-terse.

offby1 · Dec 12, 2008 · 99a7781 · 99a7781
1 parent 42a78aa
commit 99a7781
Showing 1 changed file with 5 additions and 4 deletions.
diff --git a/scheme/mzscheme/dict.scm b/scheme/mzscheme/dict.scm
@@ -39,10 +39,11 @@ exec  mzscheme --require "$0" --main -- ${1+"$@"}
               dict)))]))
 
 (define (adjoin-word dict word)
-  (hash-update dict (bag word)
-               (lambda (words)
-                 (lset-adjoin equal? words word))
-               '()))
+  (hash-update
+   dict
+   (bag word)
+   (cut lset-adjoin equal? <> word)
+   '()))
 
 (define word-acceptable?
   (let ((has-vowel-regexp (regexp "[aeiouAEIOU]"))