summaryrefslogtreecommitdiff
path: root/emacs/guile-emacs.scm
diff options
context:
space:
mode:
authorKeisuke Nishida <kxn30@po.cwru.edu>2001-04-25 13:24:45 +0000
committerKeisuke Nishida <kxn30@po.cwru.edu>2001-04-25 13:24:45 +0000
commit37052e6073d02208d599079c001762c515c25c6d (patch)
tree3b86b60b1b83070d0c0be93a7ba85b6a5766b351 /emacs/guile-emacs.scm
parent2d857fb1accfef2948063cf16ecde13f8b7fcd37 (diff)
downloadguile-37052e6073d02208d599079c001762c515c25c6d.tar.gz
Bug fixes.
Diffstat (limited to 'emacs/guile-emacs.scm')
-rw-r--r--emacs/guile-emacs.scm8
1 files changed, 6 insertions, 2 deletions
diff --git a/emacs/guile-emacs.scm b/emacs/guile-emacs.scm
index 7bc0ee785..08e56500e 100644
--- a/emacs/guile-emacs.scm
+++ b/emacs/guile-emacs.scm
@@ -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))