elisp i/o

* module/language/elisp/boot.el (send-string-to-terminal)
  (read-from-minibuffer, prin1-to-string): New functions.

1 files changed, 13 insertions, 0 deletions

diff --git a/module/language/elisp/boot.el b/module/language/elisp/boot.el
index 0b2fc88fb..adafe4d29 100644
--- a/module/language/elisp/boot.el
+++ b/module/language/elisp/boot.el
@@ -583,3 +583,16 @@
 
 (defun format* (stream string &rest args)
   (apply (@ (guile) format) stream string args))
+
+(defun send-string-to-terminal (string)
+  (princ string))
+
+(defun read-from-minibuffer (prompt &rest ignore)
+  (princ prompt)
+  (let ((value (funcall (@ (ice-9 rdelim) read-line))))
+    (if (funcall (@ (guile) eof-object?) value)
+        ""
+      value)))
+
+(defun prin1-to-string (object)
+  (format* nil "~S" object))