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

test for current-print

Browse Source
This commit is contained in:
Danny Yoo 2011-06-27 16:35:49 -04:00
parent 0ea0b05206
commit 13299c0bb0
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lang/kernel.rkt
View File

@ -146,14 +146,13 @@
(provide-stub-function (provide-stub-function
current-output-port current-output-port
current-print
write write
display display
newline newline
displayln
;; displayln
;; current-print
;; current-continuation-marks ;; current-continuation-marks
;; continuation-mark-set? ;; continuation-mark-set?

3
tests/test-browser-evaluate.rkt
View File

@ -634,7 +634,8 @@ EOF
"The number is 42") "The number is 42")
(test '((current-print) 32)
"32\n")