diff options
author | Keisuke Nishida <kxn30@po.cwru.edu> | 2001-04-26 05:19:29 +0000 |
---|---|---|
committer | Keisuke Nishida <kxn30@po.cwru.edu> | 2001-04-26 05:19:29 +0000 |
commit | 1c446a7f5d631ddf724224802283b9e8c8008a5d (patch) | |
tree | 158d56dea252a9f3a85f2300f380053aefbaade3 /emacs/guile-emacs.scm | |
parent | 7405a09d39ae2c6ecd823834457a72e0fbe5160a (diff) | |
download | guile-1c446a7f5d631ddf724224802283b9e8c8008a5d.tar.gz |
Made it Guile 1.4 compatible.
Diffstat (limited to 'emacs/guile-emacs.scm')
-rw-r--r-- | emacs/guile-emacs.scm | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/emacs/guile-emacs.scm b/emacs/guile-emacs.scm index b345072ff..995d0d6eb 100644 --- a/emacs/guile-emacs.scm +++ b/emacs/guile-emacs.scm @@ -125,4 +125,13 @@ apropos-fold-all) (lambda (p1 p2) (string<? (car p1) (car p2))))) +;;; +;;; Guile 1.4 compatibility +;;; + +(define object->string + (if (defined? 'object->string) + object->string + (lambda (x) (format #f "~S" x)))) + ;;; guile-emacs.scm ends here |