mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-05-18 02:00:20 +02:00
e322a02bc1
* module/language/elisp/runtime/subrs.scm: Define new subr `load'. * module/language/elisp/runtime/function-slot.scm: Re-export `load'.
100 lines
2.6 KiB
Scheme
100 lines
2.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)
|
|
#:duplicates (last)
|
|
;; 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)
|
|
;; macros
|
|
#:re-export (prog1
|
|
prog2
|
|
when
|
|
unless
|
|
cond
|
|
and
|
|
or
|
|
dotimes
|
|
dolist
|
|
catch
|
|
unwind-protect
|
|
pop
|
|
push))
|