Fix typo in previous change.

diff --git a/src/runtime/chrset.scm b/src/runtime/chrset.scm
index e2db46da6b026cf9ee0fbdbf5924dee64658fc72..3984dd191a9014d953cc8ff2e25413d7e081fc24 100644 (file)
--- a/src/runtime/chrset.scm
+++ b/src/runtime/chrset.scm
@@ -609,35 +609,34 @@ USA.
 ;;;; Scheme language:
 
 (define (symbol-constituent? sv)
-  (lambda (sv)
-    (case sv
-      ;; #\" #\# #\' #\, #\; #\\ #\` #\|
-      ((#x22 #x23 #x27 #x2c #x3b #x5c #x60 #x7c) #f)
-      ((#x200C #x200D) #t)
-      (else
-       (case (unicode-code-point-general-category sv)
-        ((letter:uppercase
-          letter:lowercase
-          letter:titlecase
-          letter:modifier
-          letter:other
-          mark:nonspacing
-          number:letter
-          number:other
-          punctuation:connector
-          punctuation:dash
-          punctuation:other
-          symbol:math
-          symbol:currency
-          symbol:modifier
-          symbol:other
-          other:private-use)
-         #t)
-        ((mark:spacing-combining
-          mark:enclosing
-          number:decimal-digit)
-         'subsequent-only)
-        (else #f))))))
+  (case sv
+    ;; #\" #\# #\' #\, #\; #\\ #\` #\|
+    ((#x22 #x23 #x27 #x2c #x3b #x5c #x60 #x7c) #f)
+    ((#x200C #x200D) #t)
+    (else
+     (case (unicode-code-point-general-category sv)
+       ((letter:uppercase
+        letter:lowercase
+        letter:titlecase
+        letter:modifier
+        letter:other
+        mark:nonspacing
+        number:letter
+        number:other
+        punctuation:connector
+        punctuation:dash
+        punctuation:other
+        symbol:math
+        symbol:currency
+        symbol:modifier
+        symbol:other
+        other:private-use)
+       #t)
+       ((mark:spacing-combining
+        mark:enclosing
+        number:decimal-digit)
+       'subsequent-only)
+       (else #f)))))
 
 (define-deferred char-set:symbol-constituent
   (compute-char-set symbol-constituent?))