R: add step8_macros and step9_try.

[jackhill/mal.git] / r / readline.r

diff --git a/r/readline.r b/r/readline.r
index 3e7707c..b842c2b 100644 (file)
--- a/r/readline.r
+++ b/r/readline.r
@@ -7,7 +7,7 @@ rllib <- dynfind(c("readline"))
 rl <- .dynsym(rllib,"readline")
 
 readline <- function(prompt) {
-    res <- .dyncall(rl, "Z)p", "user> ")
+    res <- .dyncall(rl, "Z)p", prompt)
     if (is.nullptr(res)) {
         return(NULL)
     } else {