[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 "False"))))
|
||||
|
||||
(define (funcall fun args)
|
||||
(cond ((equal? fun '+)
|
||||
(apply + args))
|
||||
((equal? fun 'string-append)
|
||||
(apply string-append args))
|
||||
))
|
||||
|
|
Loading…
Reference in a new issue