From d2883391871a704dd5c5d9a28c947d5a54784b48 Mon Sep 17 00:00:00 2001 From: dos-reis Date: Mon, 21 Apr 2008 21:29:49 +0000 Subject: Fix thinko --- src/interp/compiler.boot | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src') 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