From 13299c0bb096a351815abc2dcb8c218c469d0e0e Mon Sep 17 00:00:00 2001
From: Danny Yoo <dyoo@cs.wpi.edu>
Date: Mon, 27 Jun 2011 16:35:49 -0400
Subject: [PATCH] test for current-print

---
 lang/kernel.rkt                 | 7 +++----
 tests/test-browser-evaluate.rkt | 3 ++-
 2 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/lang/kernel.rkt b/lang/kernel.rkt
index 344ba5a..bbadc05 100644
--- 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?
diff --git a/tests/test-browser-evaluate.rkt b/tests/test-browser-evaluate.rkt
index c456943..6bf1902 100644
--- 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")