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

fix (apply f) -- without the args list

Browse source 
* module/language/tree-il/primitives.scm (apply): Only inline if we
  actually have an argument to apply.
This commit is contained in:
Andy Wingo 2009-11-06 11:16:54 +01:00
parent 1e2a8edb8b
commit 0e249fd359
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
module/language/tree-il/primitives.scm
View file

@ -276,8 +276,8 @@
(define-primitive-expander acons (x y z) (define-primitive-expander acons (x y z)
(cons (cons x y) z)) (cons (cons x y) z))
(define-primitive-expander apply (f . args) (define-primitive-expander apply (f a0 . args)
(@apply f . args)) (@apply f a0 . args))
(define-primitive-expander call-with-values (producer consumer) (define-primitive-expander call-with-values (producer consumer)
(@call-with-values producer consumer)) (@call-with-values producer consumer))