mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-30 06:50:31 +02:00
Code Activity

elisp i/o

Browse source 
* module/language/elisp/boot.el (send-string-to-terminal)
  (read-from-minibuffer, prin1-to-string): New functions.
This commit is contained in:
BT Templeton 2012-03-07 20:08:46 -05:00
parent 5c65ee510f
commit 43ff6804d6
1 changed files with 13 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

13
module/language/elisp/boot.el
View file

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