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")