conservatory/picrin
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

eq? predicate supports nan-boxing

Browse Source
This commit is contained in:
Yuichi Nishiwaki
2013-11-06 16:06:31 +09:00
parent 57f4492c4e
commit 27dc840118
5 changed files with 34 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files
include/picrin.h
-4
View File
@@ -77,10 +77,6 @@ void pic_close(pic_state *);
int pic_get_args(pic_state *, const char *, ...);
void pic_defun(pic_state *, const char *, pic_func_t);
bool pic_eq_p(pic_state *, pic_value, pic_value);
bool pic_eqv_p(pic_state *, pic_value, pic_value);
bool pic_equal_p(pic_state *, pic_value, pic_value);
pic_sym pic_intern_cstr(pic_state *, const char *);
const char *pic_symbol_name(pic_state *, pic_sym);
include/picrin/value.h
+4
View File
@@ -26,6 +26,7 @@ enum pic_vtype {
* sym : 1111111111110111 0000000000000000 SSSSSSSSSSSSSSSS SSSSSSSSSSSSSSSS
* char : 1111111111111000 0000000000000000 CCCCCCCCCCCCCCCC ................
*/
typedef struct {
union {
void *data;
@@ -149,4 +150,7 @@ pic_value pic_char_value(char c);
#define pic_str_p(v) (pic_type(v) == PIC_TT_STRING)
#define pic_vec_p(v) (pic_type(v) == PIC_TT_VECTOR)
bool pic_eq_p(pic_value, pic_value);
bool pic_eqv_p(pic_value, pic_value);
#endif