[feat] add funcall func

This commit is contained in:
SouthFox 2024-05-26 10:47:17 +08:00
parent 33bd32b338
commit 1a91a937ca

View file

@ -85,3 +85,9 @@
(display (gelement-type-iamge (gelement-type e)))) (display (gelement-type-iamge (gelement-type e))))
(display "False")))) (display "False"))))
(define (funcall fun args)
(cond ((equal? fun '+)
(apply + args))
((equal? fun 'string-append)
(apply string-append args))
))