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

void results for expressions now print in the teaching languages

Browse Source 
svn: r739
This commit is contained in:
Robby Findler 2005-09-01 22:07:45 +00:00
parent 2b290b3107
commit e1e7b9fe43
3 changed files with 31 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
collects/drscheme/private/rep.ss
View File

@ -570,17 +570,21 @@ TODO
;; display-results : (listof TST) -> void
;; prints each element of anss that is not void as values in the REPL.
(define/public (display-results anss) ; =User=, =Handler=, =Breaks=
(display-results/void (filter (λ (x) (not (void? x))) anss)))
;; display-results : (listof TST) -> void
;; prints each element of anss that is not void as values in the REPL.
(define/public (display-results/void anss) ; =User=, =Handler=, =Breaks=
(for-each
(λ (v)
(unless (void? v)
(let* ([ls (current-language-settings)]
[lang (drscheme:language-configuration:language-settings-language ls)]
[settings (drscheme:language-configuration:language-settings-settings ls)])
(send lang render-value/format
v
settings
(get-value-port)
(get-repl-char-width)))))
(let* ([ls (current-language-settings)]
[lang (drscheme:language-configuration:language-settings-language ls)]
[settings (drscheme:language-configuration:language-settings-settings ls)])
(send lang render-value/format
v
settings
(get-value-port)
(get-repl-char-width))))
anss))
;; get-repl-char-width : -> (and/c exact? integer?)

2
collects/lang/htdp-langs.ss
View File

@ -459,7 +459,7 @@ tracing todo:
(lambda results
(let ([rep (drscheme:rep:current-rep)])
(when rep
(send rep display-results results))))])
(send rep display-results/void results))))])
(syntax
(call-with-values
(lambda () body)

17
collects/tests/drscheme/language-test.ss
View File

@ -87,6 +87,7 @@ the settings above should match r5rs
(test-expression "mred^" "{bug09.gif} reference to undefined identifier: mred^")
(test-expression "(eq? 'a 'A)" "#f")
(test-expression "(set! x 1)" "{bug09.gif} set!: cannot set undefined identifier: x")
(test-expression "(define qqq 2) (set! qqq 1)" "")
(test-expression "(cond [(= 1 2) 3])" "")
(test-expression "(cons 1 2)" "(1 . 2)")
(test-expression "'(1)" "(1)")
@ -182,6 +183,7 @@ the settings above should match r5rs
(test-expression "mred^" "{bug09.gif} reference to undefined identifier: mred^")
(test-expression "(eq? 'a 'A)" "#f")
(test-expression "(set! x 1)" "{bug09.gif} set!: cannot set undefined identifier: x")
(test-expression "(define qqq 2) (set! qqq 1)" "")
(test-expression "(cond [(= 1 2) 3])" "")
(test-expression "(cons 1 2)" "(1 . 2)")
(test-expression "'(1)" "(1)")
@ -282,6 +284,7 @@ the settings above should match r5rs
(test-expression "mred^" "{bug09.gif} reference to undefined identifier: mred^")
(test-expression "(eq? 'a 'A)" "#t")
(test-expression "(set! x 1)" "{bug09.gif} set!: cannot set undefined identifier: x")
(test-expression "(define qqq 2) (set! qqq 1)" "")
(test-expression "(cond ((= 1 2) 3))" "")
(test-expression "(cons 1 2)" "(1 . 2)")
(test-expression "'(1)" "(1)")
@ -390,6 +393,10 @@ the settings above should match r5rs
(test-expression "(set! x 1)"
"set!: name is not defined, not an argument, and not a primitive name"
"reference to undefined identifier: set!")
(test-expression "(define qqq 2) (set! qqq 1)"
"set!: name is not defined, not an argument, and not a primitive name"
"reference to undefined identifier: set!")
(test-expression "(cond [(= 1 2) 3])" "cond: all question results were false")
(test-expression "(cons 1 2)" "cons: second argument must be of type <list>, given 1 and 2")
(test-expression "'(1)" "quote: expected a name after a ', found something else")
@ -509,6 +516,9 @@ the settings above should match r5rs
(test-expression "(set! x 1)"
"set!: name is not defined, not an argument, and not a primitive name"
"reference to undefined identifier: set!")
(test-expression "(define qqq 2) (set! qqq 1)"
"set!: name is not defined, not an argument, and not a primitive name"
"reference to undefined identifier: set!")
(test-expression "(cond [(= 1 2) 3])" "cond: all question results were false")
(test-expression "(cons 1 2)" "cons: second argument must be of type <list>, given 1 and 2")
(test-expression "'(1)" "(list 1)")
@ -625,6 +635,9 @@ the settings above should match r5rs
(test-expression "(set! x 1)"
"set!: name is not defined, not an argument, and not a primitive name"
"reference to undefined identifier: set!")
(test-expression "(define qqq 2) (set! qqq 1)"
"set!: name is not defined, not an argument, and not a primitive name"
"reference to undefined identifier: set!")
(test-expression "(cond [(= 1 2) 3])" "cond: all question results were false")
(test-expression "(cons 1 2)" "cons: second argument must be of type <list>, given 1 and 2")
(test-expression "'(1)" "(list 1)")
@ -734,6 +747,9 @@ the settings above should match r5rs
(test-expression "(set! x 1)"
"set!: name is not defined, not an argument, and not a primitive name"
"reference to undefined identifier: set!")
(test-expression "(define qqq 2) (set! qqq 1)"
"set!: name is not defined, not an argument, and not a primitive name"
"reference to undefined identifier: set!")
(test-expression "(cond [(= 1 2) 3])" "cond: all question results were false")
(test-expression "(cons 1 2)" "cons: second argument must be of type <list>, given 1 and 2")
(test-expression "'(1)" "(list 1)")
@ -841,6 +857,7 @@ the settings above should match r5rs
(test-expression "(set! x 1)"
"x: name is not defined"
"set!: cannot set undefined identifier: x")
(test-expression "(define qqq 2) (set! qqq 1)" "(void)" "define: cannot redefine name: qqq")
(test-expression "(cond [(= 1 2) 3])" "cond: all question results were false")
(test-expression "(cons 1 2)" "cons: second argument must be of type <list or cyclic list>, given 1 and 2")
(test-expression "'(1)" "(list 1)")