suzanne.soy/typed-racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

compiles except for language

Browse Source 
original commit: 8489d5cfb9852229ba4625a8e59a5b34c2881da6
This commit is contained in:
Sam Tobin-Hochstadt 2008-08-05 11:05:07 -04:00
parent 4d9768895a
commit 6dafea4ae8
1 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
collects/drscheme/private/prefs-contract.ss Normal file
View File

@ -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)))]))