From b200f025ccb0b684ff63844dbdddb3f4fa8048df Mon Sep 17 00:00:00 2001
From: Gabriel Dos Reis <gdr@axiomatics.org>
Date: Thu, 24 Dec 2015 19:11:45 -0800
Subject: Tidy uses of apply.

---
 src/interp/g-opt.boot | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/interp/g-opt.boot')

diff --git a/src/interp/g-opt.boot b/src/interp/g-opt.boot
index 2548cb53..0cf42d43 100644
--- a/src/interp/g-opt.boot
+++ b/src/interp/g-opt.boot
@@ -554,7 +554,7 @@ optCall (x is ['%call,:u]) ==
   fn is ['%external,op] =>
     x.first := op
     x.rest := a
-    opt := op has OPTIMIZE => resetTo(x,apply(opt,x,nil))
+    opt := op has OPTIMIZE => resetTo(x,apply(opt,[x]))
     x
   fn is ['ELT,:.] => emitIndirectCall(fn,a,x)
   fn is ['CONST,R,n] => ['spadConstant,R,n]
-- 
cgit v1.2.3