Searched refs:sexp_typep (Results 1 – 8 of 8) sorted by relevance
/dports/lang/chibi-scheme/chibi-scheme-0.10/lib/chibi/ |
H A D | ast.c | 306 sexp_assert_type(ctx, sexp_typep, SEXP_TYPE, t); in sexp_type_name_op() 311 sexp_assert_type(ctx, sexp_typep, SEXP_TYPE, t); in sexp_type_cpl_op() 316 sexp_assert_type(ctx, sexp_typep, SEXP_TYPE, t); in sexp_type_slots_op() 321 sexp_assert_type(ctx, sexp_typep, SEXP_TYPE, t); in sexp_type_num_slots_op() 327 sexp_assert_type(ctx, sexp_typep, SEXP_TYPE, t); in sexp_type_printer_op() 332 sexp_assert_type(ctx, sexp_typep, SEXP_TYPE, t); in sexp_type_printer_set_op()
|
/dports/lang/chibi-scheme/chibi-scheme-0.10/lib/srfi/18/ |
H A D | threads.c | 640 return sexp_make_fixnum((sexp_typep(t)) ? sexp_type_tag(t) : -1); in sexp_lookup_named_type() 664 if (sexp_typep(t)) { in sexp_init_library()
|
/dports/lang/chibi-scheme/chibi-scheme-0.10/ |
H A D | eval.c | 2015 sexp_assert_type(ctx, sexp_typep, SEXP_TYPE, type); in sexp_type_slot_offset_op() 2036 if (sexp_typep(type)) type = sexp_make_fixnum(sexp_type_tag(type)); in sexp_make_type_predicate_op() 2045 if (sexp_typep(type)) type = sexp_make_fixnum(sexp_type_tag(type)); in sexp_make_constructor_op() 2055 if (sexp_typep(type)) type = sexp_make_fixnum(sexp_type_tag(type)); in sexp_make_getter_op() 2068 if (sexp_typep(type)) type = sexp_make_fixnum(sexp_type_tag(type)); in sexp_make_setter_op()
|
H A D | gc_heap.c | 559 } else if (sexp_typep(dstp) && sexp_type_finalize(dstp)) { in load_image_callback_p2()
|
H A D | vm.c | 1611 if (! sexp_typep(tmp2)) sexp_raise("is-a?: not a type", tmp2); in sexp_apply() 1648 if (! sexp_typep(_ARG1)) in sexp_apply() 1675 if (! sexp_typep(_ARG1)) in sexp_apply()
|
H A D | sexp.c | 376 if (parent && sexp_typep(parent)) { in sexp_register_type_op() 402 if (parent && sexp_typep(parent)) { in sexp_register_simple_type_op() 3274 if (tmp && sexp_typep(tmp) && sexp_type_tag(tmp) == SEXP_STRING_CURSOR) { in sexp_read_raw() 3279 } else if (tmp && sexp_typep(tmp) && sexp_type_print(tmp) in sexp_read_raw()
|
/dports/lang/chibi-scheme/chibi-scheme-0.10/include/chibi/ |
H A D | sexp.h | 795 #define sexp_isa(a, b) (sexp_pointerp(a) && sexp_typep(b) && (sexp_pointer_tag(a) == sexp_type_tag(… 821 #define sexp_typep(x) (sexp_check_tag(x, SEXP_TYPE)) macro
|
/dports/lang/chibi-scheme/chibi-scheme-0.10/doc/ |
H A D | chibi.scrbl | 702 \item{\ccode{sexp_typep(obj)} - \var{obj} is a type}
|