mirrors/lqml
1
Fork 0
mirror of https://gitlab.com/eql/lqml.git synced 2025-12-06 02:30:38 -08:00
Code Issues Projects Releases Packages Wiki Activity

revisions

Browse source
This commit is contained in:
pls.153 2024-09-27 12:55:25 +02:00
parent fa9e81d9db
commit 033d0a073e
2 changed files with 2 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/cpp/qml_ext.cpp
View file

@ -102,8 +102,7 @@ QVariant Lisp::apply(const QJSValue& caller_or_function,
caller = caller_or_function.toQObject();
function = function_or_arguments.toString();
arguments = arguments_or_undefined.toVariant().value<QVariantList>();
}
else if (caller_or_function.isString()) {
} else if (caller_or_function.isString()) {
function = caller_or_function.toString();
arguments = function_or_arguments.toVariant().value<QVariantList>();
}

2
src/lisp/qml.lisp
View file

@ -49,7 +49,7 @@
*caller*
(qt-object caller))))
(if (fboundp fun)
(apply fun (loop :with len = (length arguments)
(apply fun (loop :with len := (length arguments)
:for arg :in arguments
:for n :from 1 :to len
:collect (if (and (stringp arg)