diff options
author | BT Templeton <bpt@hcoop.net> | 2011-08-14 17:36:38 -0400 |
---|---|---|
committer | BT Templeton <bpt@hcoop.net> | 2012-02-03 18:53:50 -0500 |
commit | 39864d20149e29e23555ffcfd13478663d6dfb32 (patch) | |
tree | 4cb7e0a60a5047c4dd99c3afb7f5446b42af7b8d /module/language/elisp | |
parent | 66be42cb3859d05ab69132e15cc2bd2bbd76d279 (diff) | |
download | guile-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.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)) |