diff options
-rw-r--r-- | module/language/tree-il/primitives.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/module/language/tree-il/primitives.scm b/module/language/tree-il/primitives.scm index 8d9376042..db49490ed 100644 --- a/module/language/tree-il/primitives.scm +++ b/module/language/tree-il/primitives.scm @@ -276,8 +276,8 @@ (define-primitive-expander acons (x y z) (cons (cons x y) z)) -(define-primitive-expander apply (f . args) - (@apply f . args)) +(define-primitive-expander apply (f a0 . args) + (@apply f a0 . args)) (define-primitive-expander call-with-values (producer consumer) (@call-with-values producer consumer)) |