From 39864d20149e29e23555ffcfd13478663d6dfb32 Mon Sep 17 00:00:00 2001 From: BT Templeton Date: Sun, 14 Aug 2011 17:36:38 -0400 Subject: [PATCH 1/1] elisp I/O * module/language/elisp/boot.el (princ, print, terpri, format*): New functions. --- module/language/elisp/boot.el | 14 ++++++++++++++ 1 file changed, 14 insertions(+) diff --git a/module/language/elisp/boot.el b/module/language/elisp/boot.el index db3267cf2..bec32b545 100644 --- a/module/language/elisp/boot.el +++ b/module/language/elisp/boot.el @@ -479,3 +479,17 @@ (defun throw (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)) -- 2.20.1