Zander671/glisp
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Allow calling lambdas directly

Browse Source
This commit is contained in:
Alexander Rosenberg
2026-01-29 00:15:18 -08:00
parent a469e137b4
commit a64051403a
2 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/kernel.gl
View File

@ -1,4 +1,3 @@
;; -*- mode: lisp-data -*- ;; -*- mode: lisp-data -*-
(print (funcall (let ((te 'a)) (print ((lambda (a) a) 1))
(lambda (b &optional (a te ap)) a)) 2 3))

2
src/function.c
View File

@ -477,6 +477,8 @@ DEFUN(funcall, "funcall", (LispVal * func, LispVal *args), "(func &rest args)",
LispFunction *fobj = func; LispFunction *fobj = func;
if (SYMBOLP(func)) { if (SYMBOLP(func)) {
fobj = Fsymbol_function(func, Qt); fobj = Fsymbol_function(func, Qt);
} else if (CONSP(func) && EQ(XCAR(func), Qlambda)) {
fobj = Feval(func, TOP_LEXENV());
} }
// include symbol here for the error message // include symbol here for the error message
CHECK_TYPE(fobj, TYPE_FUNCTION, TYPE_SYMBOL); CHECK_TYPE(fobj, TYPE_FUNCTION, TYPE_SYMBOL);