3 files changed, 4 insertions(+), 4 deletions(-)

M fs/comp/c/egen.fs
M fs/comp/c/type.fs
M fs/tests/all.fs

@@ 99,8 99,8 @@ cmpop _<, <) >=) s<) s>=)    cmpop _<=, <=) >) s<=) s>)
 cmpop _>, >) <=) s>) s<=)   cmpop _>=, >=) <) s>=) s<)
 
 : _?, ( left right -- res )
-  Result :?>W Result :?freeCurrentW ( cond )
-  nextt ':' expectChar nextt parseExpression ( cond falseres )
+  nextt ':' expectChar nextt parseExpression ( cond trueres falseres )
+  swap Result :?>W Result :?freeCurrentW ( cond falseres )
   swap Result :>W$ PS- W=0>Z, 0 Z) branchC,
     drop, [compile] else nip, over Result :>W [compile] then ;
 

@@ 40,7 40,7 @@ STORAGE_MEM value curstorage
 
 : _arena curstorage STORAGE_MEM <> curstatic or if _tarena else _parena then ;
 
-8 stringlist typenames "void" "char" "short" "int" "err" "err" "err" "err"
+8 stringlist typenames "void" "char" "short" "int" "" "" "" ""
 
 : cdecl? ( type -- f ) $f > ;
 

@@ 5,7 5,7 @@ f<< /tests/sys/all.fs
 f<< /tests/fs/all.fs
 f<< /tests/comp/c/all.fs
 f<< /tests/asm/all.fs
-\ f<< /tests/ar/all.fs
+f<< /tests/ar/all.fs
 f<< /tests/emul/all.fs
 f<< /tests/gr/all.fs
 f<< /tests/text/all.fs