From 0530b1c93128a92b2ccedbb614f97525146faa66 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Wed, 23 Aug 2006 02:12:06 +0000
Subject: [PATCH] fixed a bug with the check syntax button

svn: r4118
---
 collects/drscheme/private/language-configuration.ss | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/collects/drscheme/private/language-configuration.ss b/collects/drscheme/private/language-configuration.ss
index 867417407e..beaadd7f56 100644
--- a/collects/drscheme/private/language-configuration.ss
+++ b/collects/drscheme/private/language-configuration.ss
@@ -1460,6 +1460,12 @@
           (define/override (front-end/complete-program input settings teachpack-cache)
             (not-a-language-message)
             (λ () eof))
+          
+          (define/augment (capability-value v)
+            (case v
+              [(drscheme:check-syntax-button) #f]
+              [else (drscheme:language:get-capability-default v)]))
+          
           (super-new)))
       
       ;; used for identification only