diff options
-rw-r--r-- | module/language/elisp/boot.el | 14 |
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)) |