summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBT Templeton <bpt@hcoop.net>2012-03-07 20:06:54 -0500
committerBT Templeton <bpt@hcoop.net>2012-03-08 17:08:30 -0500
commit5c65ee510f98940397b9d69d4020f588ec9f95a8 (patch)
treec83565a0d7f3548f193dee0872fa3bdb0bfdda90
parentc0652730bcbb769c732fbc459f5852077fded5c6 (diff)
downloadguile-5c65ee510f98940397b9d69d4020f588ec9f95a8.tar.gz
elisp: symbol-name, intern
* module/language/elisp/boot.el (symbol-name, intern): New functions.
-rw-r--r--module/language/elisp/boot.el2
1 files changed, 2 insertions, 0 deletions
diff --git a/module/language/elisp/boot.el b/module/language/elisp/boot.el
index 2abd26e38..0b2fc88fb 100644
--- a/module/language/elisp/boot.el
+++ b/module/language/elisp/boot.el
@@ -222,12 +222,14 @@
;;; `symbolp' and `symbol-function' are defined above.
+(fset 'symbol-name (@ (guile) symbol->string))
(fset 'symbol-value (@ (language elisp runtime) symbol-value))
(fset 'set (@ (language elisp runtime) set-symbol-value!))
(fset 'makunbound (@ (language elisp runtime) makunbound!))
(fset 'fmakunbound (@ (language elisp runtime) fmakunbound!))
(fset 'boundp (@ (language elisp runtime) symbol-bound?))
(fset 'fboundp (@ (language elisp runtime) symbol-fbound?))
+(fset 'intern (@ (guile) string->symbol))
(defun defvaralias (new-alias base-variable &optional docstring)
(let ((fluid (funcall (@ (language elisp runtime) symbol-fluid)