From 6dafea4ae8aacf2609fa3f162fb1227573061092 Mon Sep 17 00:00:00 2001
From: Sam Tobin-Hochstadt <samth@racket-lang.org>
Date: Tue, 5 Aug 2008 11:05:07 -0400
Subject: [PATCH] compiles except for language

original commit: 8489d5cfb9852229ba4625a8e59a5b34c2881da6
---
 collects/drscheme/private/prefs-contract.ss | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)
 create mode 100644 collects/drscheme/private/prefs-contract.ss

diff --git a/collects/drscheme/private/prefs-contract.ss b/collects/drscheme/private/prefs-contract.ss
new file mode 100644
index 00000000..cb648dd5
--- /dev/null
+++ b/collects/drscheme/private/prefs-contract.ss
@@ -0,0 +1,16 @@
+#lang scheme/base
+
+(require (for-syntax scheme/base)
+         framework/framework)
+
+(provide (rename-out [-preferences:get preferences:get])
+         preferences:get-drscheme:large-letters-font)
+
+(define (preferences:get-drscheme:large-letters-font)
+  (preferences:get 'drscheme:large-letters-font))
+
+(define-syntax (-preferences:get stx)
+  (syntax-case stx (quote)
+    [(_ (quote sym))
+     (with-syntax ([nm (datum->syntax stx (string->symbol (string-append "preferences:get" "-" (symbol->string (syntax-e #'sym)))))])
+       (syntax/loc stx (nm)))]))
\ No newline at end of file