diff options
author | BT Templeton <bpt@hcoop.net> | 2012-03-07 20:06:54 -0500 |
---|---|---|
committer | BT Templeton <bpt@hcoop.net> | 2012-03-08 17:08:30 -0500 |
commit | 5c65ee510f98940397b9d69d4020f588ec9f95a8 (patch) | |
tree | c83565a0d7f3548f193dee0872fa3bdb0bfdda90 | |
parent | c0652730bcbb769c732fbc459f5852077fded5c6 (diff) | |
download | guile-5c65ee510f98940397b9d69d4020f588ec9f95a8.tar.gz |
elisp: symbol-name, intern
* module/language/elisp/boot.el (symbol-name, intern): New functions.
-rw-r--r-- | module/language/elisp/boot.el | 2 |
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) |