From: BT Templeton <bpt@hcoop.net>
Date: Sun, 14 Aug 2011 21:36:38 +0000 (-0400)
Subject: elisp I/O
X-Git-Url: http://git.hcoop.net/bpt/guile.git/commitdiff_plain/39864d20149e29e23555ffcfd13478663d6dfb32?hp=66be42cb3859d05ab69132e15cc2bd2bbd76d279

elisp I/O

* module/language/elisp/boot.el (princ, print, terpri, format*): New
  functions.
---

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