mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-19 03:00:25 +02:00
Code Activity

new `load' subr

Browse source 
* module/language/elisp/runtime/subrs.scm: Define new subr `load'.
* module/language/elisp/runtime/function-slot.scm: Re-export `load'.
This commit is contained in:
Brian Templeton 2010-06-29 21:18:05 -04:00
parent f12492fa98
commit e322a02bc1
2 changed files with 7 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
module/language/elisp/runtime/function-slot.scm
View file

@ -82,7 +82,8 @@
funcall funcall
throw throw
not not
eval) eval
load)
;; macros ;; macros
#:re-export (prog1 #:re-export (prog1
prog2 prog2

5
module/language/elisp/runtime/subrs.scm
View file

@ -354,3 +354,8 @@
(built-in-func eval (built-in-func eval
(lambda (form) (lambda (form)
(compile form #:from 'elisp #:to 'value))) (compile form #:from 'elisp #:to 'value)))
(built-in-func load
(lambda* (file)
(compile-file file #:from 'elisp #:to 'value)
#t))