17 lines
554 B
Scheme
17 lines
554 B
Scheme
#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)))]))
|