mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-04-30 20:00:19 +02:00
761e60535b
* module/language/elisp/compile-tree-il.scm (reference-with-check)
(compile-without-void-checks, want-void-check?): Remove.
(compile-function, compile-pair): Use `reference-variable' instead of
`reference-with-check'.
(compile-defvar): Only set `sym' if `sym' is not bound to a bound
fluid, rather than requiring that its value be `void'.
(process-options!): Remove `#:disable-void-check' option handling.
* module/language/elisp/runtime.scm (void)
(reference-variable-with-check): Remove.
(ensure-fluid!): Use an undefined fluid as the initial value for
global variables.
* module/language/elisp/runtime/function-slot.scm (without-void-checks):
Don't import or re-export.
* module/language/elisp/runtime/macros.scm (prog1, cond, or, dolist):
Don't use `without-void-checks'.
* module/language/elisp/runtime/subrs.scm (symbol-value)
(symbol-function, apply): Use `reference-variable' instead of
`reference-variable-with-check'.
(makunbound, fmakunbound, boundp, fboundp): Unset the variable's fluid
(or the variable itself, if it isn't bound to a fluid).
* test-suite/tests/elisp-compiler.test ("Variable
Setting/Referencing")["disabled void check (all)", "disabled void
check (symbol list)", "without-void-checks"]: Remove.
159 lines
4.6 KiB
Scheme
159 lines
4.6 KiB
Scheme
;;; Guile Emacs Lisp
|
|
|
|
;;; Copyright (C) 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)
|
|
#:use-module ((language elisp runtime macros)
|
|
#:select
|
|
((macro-lambda . lambda)
|
|
(macro-prog1 . prog1)
|
|
(macro-prog2 . prog2)
|
|
(macro-when . when)
|
|
(macro-unless . unless)
|
|
(macro-cond . cond)
|
|
(macro-and . and)
|
|
(macro-or . or)
|
|
(macro-dotimes . dotimes)
|
|
(macro-dolist . dolist)
|
|
(macro-catch . catch)
|
|
(macro-unwind-protect . unwind-protect)
|
|
(macro-pop . pop)
|
|
(macro-push . push)))
|
|
#:use-module ((language elisp compile-tree-il)
|
|
#:select
|
|
((compile-progn . progn)
|
|
(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
|
|
if
|
|
defconst
|
|
defvar
|
|
setq
|
|
let
|
|
lexical-let
|
|
flet
|
|
let*
|
|
lexical-let*
|
|
flet*
|
|
with-always-lexical
|
|
guile-ref
|
|
guile-primitive
|
|
while
|
|
function
|
|
defun
|
|
defmacro
|
|
#{`}#
|
|
quote)
|
|
;; macros
|
|
#:re-export (lambda
|
|
prog1
|
|
prog2
|
|
when
|
|
unless
|
|
cond
|
|
and
|
|
or
|
|
dotimes
|
|
dolist
|
|
catch
|
|
unwind-protect
|
|
pop
|
|
push)
|
|
;; functions
|
|
#:re-export (eq
|
|
equal
|
|
floatp
|
|
integerp
|
|
numberp
|
|
wholenump
|
|
zerop
|
|
=
|
|
/=
|
|
<
|
|
<=
|
|
>
|
|
>=
|
|
max
|
|
min
|
|
abs
|
|
float
|
|
1+
|
|
1-
|
|
+
|
|
-
|
|
*
|
|
%
|
|
ffloor
|
|
fceiling
|
|
ftruncate
|
|
fround
|
|
consp
|
|
atomp
|
|
listp
|
|
nlistp
|
|
null
|
|
car
|
|
cdr
|
|
car-safe
|
|
cdr-safe
|
|
nth
|
|
nthcdr
|
|
length
|
|
cons
|
|
list
|
|
make-list
|
|
append
|
|
reverse
|
|
copy-tree
|
|
number-sequence
|
|
setcar
|
|
setcdr
|
|
symbol-value
|
|
symbol-function
|
|
set
|
|
fset
|
|
makunbound
|
|
fmakunbound
|
|
boundp
|
|
fboundp
|
|
apply
|
|
funcall
|
|
throw
|
|
not
|
|
eval
|
|
load))
|