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 db3267c..bec32b5 100644 (file)
--- 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))