summaryrefslogtreecommitdiff
path: root/module/language/elisp
diff options
context:
space:
mode:
authorBT Templeton <bpt@hcoop.net>2011-08-14 17:36:38 -0400
committerBT Templeton <bpt@hcoop.net>2012-02-03 18:53:50 -0500
commit39864d20149e29e23555ffcfd13478663d6dfb32 (patch)
tree4cb7e0a60a5047c4dd99c3afb7f5446b42af7b8d /module/language/elisp
parent66be42cb3859d05ab69132e15cc2bd2bbd76d279 (diff)
downloadguile-39864d20149e29e23555ffcfd13478663d6dfb32.tar.gz
elisp I/O
* module/language/elisp/boot.el (princ, print, terpri, format*): New functions.
Diffstat (limited to 'module/language/elisp')
-rw-r--r--module/language/elisp/boot.el14
1 files changed, 14 insertions, 0 deletions
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))