From d2883391871a704dd5c5d9a28c947d5a54784b48 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Mon, 21 Apr 2008 21:29:49 +0000
Subject: Fix thinko

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

diff --git a/src/interp/compiler.boot b/src/interp/compiler.boot
index 877749d2..71dbf34b 100644
--- a/src/interp/compiler.boot
+++ b/src/interp/compiler.boot
@@ -529,7 +529,7 @@ getFormModemaps(form is [op,:argl],e) ==
 ++ flag arguments, and negative entries for normal argument passing.
 checkCallingConvention: (%List,%Short) -> %SimpleArray %Short
 checkCallingConvention(sigs,nargs) ==
-  v := makeFilledSimpleArray(%Short,nargs,0)
+  v := makeFilledSimpleArray("%Short",nargs,0)
   for sig in sigs repeat
     for t in rest sig 
       for i in 0.. repeat
-- 
cgit v1.2.3