mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-01 20:30:28 +02:00
Code Activity

elisp I/O

Browse source 
* module/language/elisp/boot.el (princ, print, terpri, format*): New
  functions.
This commit is contained in:
BT Templeton 2011-08-14 17:36:38 -04:00
parent 66be42cb38
commit 39864d2014
1 changed files with 14 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -479,3 +479,17 @@
(defun throw (tag value) (defun throw (tag value)
(signal (if %catch 'throw 'no-catch) (list tag value))) (signal (if %catch 'throw 'no-catch) (list tag value)))
;;; I/O
(defun princ (object)
(funcall (@ (guile) display) object))
(defun print (object)
(funcall (@ (guile) write) object))
(defun terpri ()
(funcall (@ (guile) newline)))
(defun format* (stream string &rest args)
(apply (@ (guile) format) stream string args))