mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-05-31 01:10:24 +02:00
5bcc6d9e70
* module/language/elisp/subrs.scm (eval, load): Rewrite in Elisp and move to... * module/language/elisp/boot.el (eval, load): ...here.
41 lines
1.6 KiB
Scheme
41 lines
1.6 KiB
Scheme
;;; Guile Emacs Lisp
|
|
|
|
;;; Copyright (C) 2009 Free Software Foundation, Inc.
|
|
;;;
|
|
;;; This library is free software; you can redistribute it and/or modify
|
|
;;; it under the terms of the GNU Lesser General Public License as
|
|
;;; published by the Free Software Foundation; either version 3 of the
|
|
;;; License, or (at your option) any later version.
|
|
;;;
|
|
;;; This library is distributed in the hope that it will be useful, but
|
|
;;; WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
;;; Lesser General Public License for more details.
|
|
;;;
|
|
;;; You should have received a copy of the GNU Lesser General Public
|
|
;;; License along with this library; if not, write to the Free Software
|
|
;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
|
|
;;; 02110-1301 USA
|
|
|
|
;;; Code:
|
|
|
|
(define-module (language elisp runtime subrs)
|
|
#:use-module (language elisp runtime)
|
|
#:use-module (system base compile)
|
|
#:export (apply))
|
|
|
|
;;; Function calls. These must take care of special cases, like using
|
|
;;; symbols or raw lambda-lists as functions!
|
|
|
|
(define (apply func . args)
|
|
(let ((real-func (cond
|
|
((symbol? func)
|
|
(symbol-function func))
|
|
((list? func)
|
|
(if (and (prim not (null? func))
|
|
(eq? (prim car func) 'lambda))
|
|
(compile func #:from 'elisp #:to 'value)
|
|
(runtime-error "list is not a function"
|
|
func)))
|
|
(else func))))
|
|
(prim apply (@ (guile) apply) real-func args)))
|