mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-18 01:30:27 +02:00
Code Activity

Bug fixes.

Browse source
This commit is contained in:
Keisuke Nishida 2001-04-25 13:24:45 +00:00
parent 2d857fb1ac
commit 37052e6073
2 changed files with 15 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

8
emacs/guile-emacs.scm
View file

@ -84,9 +84,13 @@
(define (procedure-call name args)
(let ((restp (memq '&rest args))
(args (delq '&rest (delq '&optional args))))
(args (map (lambda (a) `(let ((_t ,a))
(if (guile-tokenp _t)
(cadr _t)
(list 'quote _t))))
(delq '&rest (delq '&optional args)))))
(if restp
`(list* ',name ,@args)
`(list 'apply ',name ,@args)
`(list ',name ,@args))))
(let ((name (procedure-name proc))