[Chicken-hackers] testcase -strict-types

[Jörg F . Wittenberger]

The attached code fails when compiled with -strict-types.


$ csc -strict-types -verbose strcttps.scm 
/usr/bin/chicken strcttps.scm -output-file strcttps.c -strict-types -verbose

Note: in local procedure `doloop9',
 in toplevel procedure `foo#bar':
 (strcttps.scm:10) in procedure call to `null?', the predicate is called 
with an argument of type
 `null' and will always return true gcc strcttps.c -o strcttps.o -c 
-fno-strict-aliasing -fwrapv -DHAVE_CHICKEN_CONFIG_H -DC_ENABLE_PTABLES -Os 
-fomit-frame-pointer -I"/usr/include/chicken" rm strcttps.c gcc strcttps.o 
-o strcttps -L"/usr/lib" -Wl,-R"/usr/lib" -lchicken -lm -ldl rm strcttps.o 
$ ./strcttps gaga



My bad?

Best

/Jörg


......

strcttps.scm
Description: strcttps.scm