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
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)
(lambda (config)
(current-prompt-read (lambda ()
(printf "> ")
(read)))
(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
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
scheme/gui
#:language-info '#(scheme/language-info get-info #f)

13
collects/scheme/init.rkt
View File

@ -1,16 +1,17 @@
#lang scheme
(module init scheme
(require "enter.ss"
(require "enter.ss"
"help.ss")
;; Set the printer:
(current-print (let ([pretty-printer
;; Set the printer:
(current-print (let ([pretty-printer
(lambda (v)
(unless (void? v)
(pretty-print v)))])
pretty-printer))
(provide (all-from-out scheme
(provide (all-from-out scheme
"enter.ss"
"help.ss")))
"help.ss"))

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

@ -1,2 +1,4 @@
#lang s-exp syntax/module-reader
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]))))

9
collects/scheme/main.rkt
View File

@ -1,5 +1,6 @@
(module main scheme/base
(require scheme/contract
#lang scheme/base
(require scheme/contract
scheme/class
scheme/unit
scheme/dict
@ -24,7 +25,7 @@
scheme/nest
(for-syntax scheme/base))
(provide (all-from-out scheme/contract
(provide (all-from-out scheme/contract
scheme/class
scheme/unit
scheme/dict
@ -48,4 +49,4 @@
scheme/bool
scheme/local
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_MPAIR_CURLY, scheme_true);
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_HONU_MODE, scheme_false);