From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 8 Feb 2017 08:27:07 +0000 (-0800)
Subject: Fix typo in previous change.
X-Git-Tag: mit-scheme-pucked-9.2.12~220^2~161
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=ce3642afc30a9873b80834fe1d7a3c5e86d98a28;p=mit-scheme.git

Fix typo in previous change.
---

diff --git a/src/runtime/chrset.scm b/src/runtime/chrset.scm
index e2db46da6..3984dd191 100644
--- 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?))