diff options
| author | Brian Templeton <bpt@hcoop.net> | 2010-06-29 21:18:05 -0400 |
|---|---|---|
| committer | Brian Templeton <bpt@hcoop.net> | 2010-08-13 16:35:51 -0400 |
| commit | e322a02bc1c829ba29be8f3029c2d031f97da6d3 (patch) | |
| tree | 2c403452ee231adfc0ffe507539adebcead4c7f4 | |
| parent | f12492fa98744a468ca8f2619d9dce4d4a86b837 (diff) | |
| download | guile-e322a02bc1c829ba29be8f3029c2d031f97da6d3.tar.gz | |
new `load' subr
* module/language/elisp/runtime/subrs.scm: Define new subr `load'.
* module/language/elisp/runtime/function-slot.scm: Re-export `load'.
| -rw-r--r-- | module/language/elisp/runtime/function-slot.scm | 3 | ||||
| -rw-r--r-- | module/language/elisp/runtime/subrs.scm | 5 |
2 files changed, 7 insertions, 1 deletions
diff --git a/module/language/elisp/runtime/function-slot.scm b/module/language/elisp/runtime/function-slot.scm index 971f763a8..1a953922b 100644 --- a/module/language/elisp/runtime/function-slot.scm +++ b/module/language/elisp/runtime/function-slot.scm @@ -82,7 +82,8 @@ funcall throw not - eval) + eval + load) ;; macros #:re-export (prog1 prog2 diff --git a/module/language/elisp/runtime/subrs.scm b/module/language/elisp/runtime/subrs.scm index a2a086587..e01261a97 100644 --- a/module/language/elisp/runtime/subrs.scm +++ b/module/language/elisp/runtime/subrs.scm @@ -354,3 +354,8 @@ (built-in-func eval (lambda (form) (compile form #:from 'elisp #:to 'value))) + +(built-in-func load + (lambda* (file) + (compile-file file #:from 'elisp #:to 'value) + #t)) |