[feat] add funcall func
This commit is contained in:
parent
33bd32b338
commit
1a91a937ca
1 changed files with 6 additions and 0 deletions
6
game.scm
6
game.scm
|
@ -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))
|
||||||
|
))
|
||||||
|
|
Loading…
Reference in a new issue