test for current-print

2011-06-27 16:35:49 -04:00 · 2011-06-27 16:35:49 -04:00 · 13299c0bb0
commit 13299c0bb0
parent 0ea0b05206
2 changed files with 5 additions and 5 deletions
--- a/lang/kernel.rkt
+++ b/lang/kernel.rkt
@ -146,14 +146,13 @@
 (provide-stub-function

 current-output-port
- 
+ current-print 
 write
 display
 newline
+ displayln

-;;  displayln
-
-;;  current-print
+ 
 ;;  current-continuation-marks

 ;;  continuation-mark-set?
--- a/tests/test-browser-evaluate.rkt
+++ b/tests/test-browser-evaluate.rkt
@ -634,7 +634,8 @@ EOF
      "The number is 42")


-
+(test '((current-print) 32)
+      "32\n")