mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-06-22 11:34:09 +02:00
b652e2b93f
* module/language/elisp/runtime/macros.scm: Remove. (macro-lambda, macro-prog1, macro-prog2, macro-cond, macro-and, macro-or, macro-catch, macro-unwind-protect): Rewrite in Elisp and move to... * module/language/elisp/boot.el (lambda, prog1, prog2, cond, and, or, catch, unwind-protect): ...here. (eval-and-compile): New macro. (funcall, fset, null, consp, listp, car, cdr, make-symbol-signal): Wrap definitions in an `eval-and-compile' form so that they can be used by the rewritten macros. * module/language/elisp/runtime.scm: Remove `built-in-macro'. * module/language/elisp/Makefile.am: Remove module/language/elisp/runtime/macros.scm from `ELISP_LANG_SOURCES'.
69 lines
2.5 KiB
Scheme
69 lines
2.5 KiB
Scheme
;;; Guile Emacs Lisp
|
|
|
|
;;; Copyright (C) 2009, 2010 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
|
|
|
|
(define-module (language elisp runtime function-slot)
|
|
#:use-module ((language elisp runtime subrs)
|
|
#:select (apply))
|
|
#:use-module ((language elisp compile-tree-il)
|
|
#:select
|
|
((compile-progn . progn)
|
|
(compile-eval-when-compile . eval-when-compile)
|
|
(compile-if . if)
|
|
(compile-defconst . defconst)
|
|
(compile-defvar . defvar)
|
|
(compile-setq . setq)
|
|
(compile-let . let)
|
|
(compile-lexical-let . lexical-let)
|
|
(compile-flet . flet)
|
|
(compile-let* . let*)
|
|
(compile-lexical-let* . lexical-let*)
|
|
(compile-flet* . flet*)
|
|
(compile-with-always-lexical . with-always-lexical)
|
|
(compile-guile-ref . guile-ref)
|
|
(compile-guile-primitive . guile-primitive)
|
|
(compile-while . while)
|
|
(compile-function . function)
|
|
(compile-defun . defun)
|
|
(compile-defmacro . defmacro)
|
|
(#{compile-`}# . #{`}#)
|
|
(compile-quote . quote)))
|
|
#:duplicates (last)
|
|
;; special operators
|
|
#:re-export (progn
|
|
eval-when-compile
|
|
if
|
|
defconst
|
|
defvar
|
|
setq
|
|
let
|
|
lexical-let
|
|
flet
|
|
let*
|
|
lexical-let*
|
|
flet*
|
|
with-always-lexical
|
|
guile-ref
|
|
guile-primitive
|
|
while
|
|
function
|
|
defun
|
|
defmacro
|
|
#{`}#
|
|
quote)
|
|
;; functions
|
|
#:re-export (apply))
|