diff options
author | Keisuke Nishida <kxn30@po.cwru.edu> | 2001-04-25 13:24:45 +0000 |
---|---|---|
committer | Keisuke Nishida <kxn30@po.cwru.edu> | 2001-04-25 13:24:45 +0000 |
commit | 37052e6073d02208d599079c001762c515c25c6d (patch) | |
tree | 3b86b60b1b83070d0c0be93a7ba85b6a5766b351 /emacs/guile-emacs.scm | |
parent | 2d857fb1accfef2948063cf16ecde13f8b7fcd37 (diff) | |
download | guile-37052e6073d02208d599079c001762c515c25c6d.tar.gz |
Bug fixes.
Diffstat (limited to 'emacs/guile-emacs.scm')
-rw-r--r-- | emacs/guile-emacs.scm | 8 |
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)) |