+++ /dev/null
-IN: scratchpad
-USE: test
-USE: compiler
-USE: inference
-USE: words
-USE: math
-USE: combinators
-
-: foo 1 2 3 ;
-
-[ [ ] ] [ \ foo word-parameter dataflow kill-set ] unit-test
-
-[ [ [ + ] [ - ] ] ] [ [ 3 4 1 2 > [ + ] [ - ] ifte ] dataflow kill-set ] unit-test
-
-[ [ [ 1 ] [ 2 ] ] ] [ [ [ 1 ] [ 2 ] ifte ] dataflow kill-set ] unit-test
#include "factor.h"
-DLLEXPORT CELL arithmetic_type(CELL obj1, CELL obj2);
+CELL arithmetic_type(CELL obj1, CELL obj2);
void primitive_arithmetic_type(void);
bool realp(CELL tagged);
#define NUMBER_TYPE 103 /* F_COMPLEX or REAL */
#define TEXT_TYPE 104 /* F_FIXNUM or F_STRING */
-DLLEXPORT CELL type_of(CELL tagged);
+CELL type_of(CELL tagged);
bool typep(CELL type, CELL tagged);
INLINE CELL tag_header(CELL cell)