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

switch default configuration to have qq printing enabled, add runtime-config for scheme languages

Browse Source
This commit is contained in:
Matthew Flatt 2010-04-22 12:12:34 -06:00
parent c76cee4775
commit 82eb64451d
12 changed files with 96 additions and 68 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/racket/gui/lang/reader.ss
View File

@ -1,2 +1,4 @@
#lang s-exp syntax/module-reader #lang s-exp syntax/module-reader
racket/gui racket/gui
#:language-info '#(racket/language-info get-info #f)

3
collects/racket/runtime-config.rkt
View File

@ -4,7 +4,4 @@
(define-values (configure) (define-values (configure)
(lambda (config) (lambda (config)
(current-prompt-read (lambda ()
(printf "> ")
(read)))
(print-as-quasiquote #t)))) (print-as-quasiquote #t))))

4
collects/scheme/base.rkt
View File

@ -1,3 +1,3 @@
#lang scheme/private
(module base racket/base (provide (except-out (all-from-out racket/base) struct))
(provide (except-out (all-from-out racket/base) struct)))

2
collects/scheme/base/lang/reader.ss
View File

@ -1,2 +1,4 @@
#lang s-exp syntax/module-reader #lang s-exp syntax/module-reader
scheme/base scheme/base
#:language-info '#(scheme/language-info get-info #f)

2
collects/scheme/gui/lang/reader.ss
View File

@ -1,2 +1,4 @@
#lang s-exp syntax/module-reader #lang s-exp syntax/module-reader
scheme/gui scheme/gui
#:language-info '#(scheme/language-info get-info #f)

5
collects/scheme/init.rkt
View File

@ -1,5 +1,5 @@
#lang scheme
(module init scheme
(require "enter.ss" (require "enter.ss"
"help.ss") "help.ss")
@ -12,5 +12,6 @@
(provide (all-from-out scheme (provide (all-from-out scheme
"enter.ss" "enter.ss"
"help.ss"))) "help.ss"))

2
collects/scheme/lang/reader.ss
View File

@ -1,2 +1,4 @@
#lang s-exp syntax/module-reader #lang s-exp syntax/module-reader
scheme scheme
#:language-info '#(scheme/language-info get-info #f)

10
collects/scheme/language-info.ss Normal file
View File

@ -0,0 +1,10 @@
(module language-info racket/base
(provide get-info)
(define (get-info data)
(lambda (key default)
(case key
[(configure-runtime)
'(#(scheme/runtime-config configure #f))]
[else default]))))

5
collects/scheme/main.rkt
View File

@ -1,4 +1,5 @@
(module main scheme/base #lang scheme/base
(require scheme/contract (require scheme/contract
scheme/class scheme/class
scheme/unit scheme/unit
@ -48,4 +49,4 @@
scheme/bool scheme/bool
scheme/local scheme/local
scheme/nest) scheme/nest)
(for-syntax (all-from-out scheme/base)))) (for-syntax (all-from-out scheme/base)))

4
collects/scheme/private/lang/reader.ss Normal file
View File

@ -0,0 +1,4 @@
#lang s-exp syntax/module-reader
racket/base
#:language-info '#(scheme/language-info get-info #f)

7
collects/scheme/runtime-config.ss Normal file
View File

@ -0,0 +1,7 @@
(module runtime-config '#%kernel
(#%provide configure)
(define-values (configure)
(lambda (config)
(print-as-quasiquote #f))))

2
src/racket/src/thread.c
View File

@ -6625,7 +6625,7 @@ static void make_initial_config(Scheme_Thread *p)
init_param(cells, paramz, MZCONFIG_PRINT_PAIR_CURLY, scheme_false); init_param(cells, paramz, MZCONFIG_PRINT_PAIR_CURLY, scheme_false);
init_param(cells, paramz, MZCONFIG_PRINT_MPAIR_CURLY, scheme_true); init_param(cells, paramz, MZCONFIG_PRINT_MPAIR_CURLY, scheme_true);
init_param(cells, paramz, MZCONFIG_PRINT_READER, scheme_false); init_param(cells, paramz, MZCONFIG_PRINT_READER, scheme_false);
init_param(cells, paramz, MZCONFIG_PRINT_AS_QQ, scheme_false); init_param(cells, paramz, MZCONFIG_PRINT_AS_QQ, scheme_true);
init_param(cells, paramz, MZCONFIG_PRINT_SYNTAX_WIDTH, scheme_make_integer(32)); init_param(cells, paramz, MZCONFIG_PRINT_SYNTAX_WIDTH, scheme_make_integer(32));
init_param(cells, paramz, MZCONFIG_HONU_MODE, scheme_false); init_param(cells, paramz, MZCONFIG_HONU_MODE, scheme_false);