/dports/lang/sagittarius-scheme/sagittarius-0.9.8/src/sagittarius/private/ |
H A D | builtin-symbols.h | 5 #define SG_SYMBOL_QUOTE SG_OBJ(&Sg_BuiltinSymbols[0]) 7 #define SG_SYMBOL_UNQUOTE SG_OBJ(&Sg_BuiltinSymbols[2]) 9 #define SG_SYMBOL_SYNTAX SG_OBJ(&Sg_BuiltinSymbols[4]) 13 #define SG_SYMBOL_DEFINE SG_OBJ(&Sg_BuiltinSymbols[8]) 15 #define SG_SYMBOL_LET SG_OBJ(&Sg_BuiltinSymbols[10]) 19 #define SG_SYMBOL_SET SG_OBJ(&Sg_BuiltinSymbols[14]) 21 #define SG_SYMBOL_DOT SG_OBJ(&Sg_BuiltinSymbols[16]) 26 #define SG_SYMBOL_IF SG_OBJ(&Sg_BuiltinSymbols[21]) 27 #define SG_SYMBOL_AND SG_OBJ(&Sg_BuiltinSymbols[22]) 28 #define SG_SYMBOL_OR SG_OBJ(&Sg_BuiltinSymbols[23]) [all …]
|
H A D | builtin-keywords.h | 5 #define SG_KEYWORD_LAMBDA_LIST SG_OBJ(&Sg_BuiltinKeywords[0]) 6 #define SG_KEYWORD_QUALIFIER SG_OBJ(&Sg_BuiltinKeywords[1]) 8 #define SG_KEYWORD_GENERIC SG_OBJ(&Sg_BuiltinKeywords[3]) 9 #define SG_KEYWORD_PROCEDURE SG_OBJ(&Sg_BuiltinKeywords[4]) 11 #define SG_KEYWORD_PRIMARY SG_OBJ(&Sg_BuiltinKeywords[6]) 12 #define SG_KEYWORD_BEFORE SG_OBJ(&Sg_BuiltinKeywords[7]) 13 #define SG_KEYWORD_AFTER SG_OBJ(&Sg_BuiltinKeywords[8]) 14 #define SG_KEYWORD_AROUND SG_OBJ(&Sg_BuiltinKeywords[9]) 18 #define SG_KEYWORD_ALL SG_OBJ(&Sg_BuiltinKeywords[13]) 21 #define SG_KEYWORD_PIPE SG_OBJ(&Sg_BuiltinKeywords[16]) [all …]
|
H A D | sagittariusdefs.h | 315 #define SG_OBJ(obj) ((SgObject)(obj)) macro 347 #define SG_FALSE SG_OBJ(SG__MAKE_ITAG(0)) /* #f */ 348 #define SG_TRUE SG_OBJ(SG__MAKE_ITAG(1)) /* #t */ 349 #define SG_NIL SG_OBJ(SG__MAKE_ITAG(2)) /* '() */ 350 #define SG_EOF SG_OBJ(SG__MAKE_ITAG(3)) /* eof-object */ 351 #define SG_UNDEF SG_OBJ(SG__MAKE_ITAG(4)) /* undefined */ 352 #define SG_UNBOUND SG_OBJ(SG__MAKE_ITAG(5)) /* unbound */ 371 #define SG_MAKE_INT(obj) SG_OBJ(((long)((unsigned long)(obj) << 2) + 1)) 373 #define SG_ENSURE_INT(obj) SG_OBJ((long)(obj) | 1) 382 #define SG_MAKE_CHAR(obj) SG_OBJ(((unsigned long)(obj) << 8) + 0x03) [all …]
|
H A D | collection.h | 73 #define SG_DICT_ENTRY_KEY(e) SG_OBJ((e)->key) 74 #define SG_DICT_ENTRY_VALUE(e) SG_OBJ((e)->value) 76 SG_OBJ((e)->value = (intptr_t)v)
|
/dports/lang/sagittarius-scheme/sagittarius-0.9.8/src/ |
H A D | compiler.c | 164 SG_WORD(SG_OBJ(&sg__rc_cgen8923.d14398[4])) /* #<code-builder #f (0 0 3)> */, 356 SG_WORD(SG_OBJ(&sg__rc_cgen8923.d14398[21])) /* #<code-builder #f (0 0 2)> */, 1173 SG_WORD(SG_OBJ(&sg__rc_cgen8923.d14398[69])) /* #<code-builder #f (0 0 4)> */, 1196 SG_WORD(SG_OBJ(&sg__rc_cgen8923.d14398[70])) /* #<code-builder #f (1 0 4)> */, 1288 SG_WORD(SG_OBJ(&sg__rc_cgen8923.d14398[72])) /* #<code-builder #f (0 0 6)> */, 1308 SG_WORD(SG_OBJ(&sg__rc_cgen8923.d14398[73])) /* #<code-builder #f (1 0 1)> */, 1401 SG_WORD(SG_OBJ(&sg__rc_cgen8923.d14398[75])) /* #<code-builder #f (0 0 7)> */, 1421 SG_WORD(SG_OBJ(&sg__rc_cgen8923.d14398[76])) /* #<code-builder #f (1 0 1)> */, 1532 SG_WORD(SG_OBJ(&sg__rc_cgen8923.d14398[78])) /* #<code-builder #f (0 0 7)> */, 56802 SG_CODE_BUILDER(SG_OBJ(&sg__rc_cgen8923.d14398[791])); [all …]
|
H A D | lib_macro.c | 1584 SG_WORD(SG_OBJ(&sg__rc_cgen8687.d8803[39])) /* #<code-builder #f (2 0 1)> */, 7655 (SgWord *)SG_OBJ(&sg__rc_cgen8687.d8801[0]), SG_FALSE, 3, 0, 0, 14, 20), 7658 (SgWord *)SG_OBJ(&sg__rc_cgen8687.d8801[20]), SG_FALSE, 2, 0, 0, 10, 8), 7667 (SgWord *)SG_OBJ(&sg__rc_cgen8687.d8801[107]), SG_FALSE, 1, 0, 0, 7, 2), 7685 (SgWord *)SG_OBJ(&sg__rc_cgen8687.d8801[250]), SG_FALSE, 1, 0, 0, 8, 4), 7688 (SgWord *)SG_OBJ(&sg__rc_cgen8687.d8801[254]), SG_FALSE, 1, 0, 0, 7, 2), 7706 (SgWord *)SG_OBJ(&sg__rc_cgen8687.d8801[559]), SG_FALSE, 0, 0, 0, 7, 5), 7718 (SgWord *)SG_OBJ(&sg__rc_cgen8687.d8801[711]), SG_FALSE, 1, 0, 0, 8, 4), 7721 (SgWord *)SG_OBJ(&sg__rc_cgen8687.d8801[715]), SG_FALSE, 1, 0, 0, 8, 4), 7992 SG_CODE_BUILDER(SG_OBJ(&sg__rc_cgen8687.d8803[111])); [all …]
|
H A D | lib_errors.c | 1143 (SgWord *)SG_OBJ(&sg__rc_cgen14489.d14514[0]), SG_FALSE, 1, 0, 0, 14, 42), 1146 (SgWord *)SG_OBJ(&sg__rc_cgen14489.d14514[42]), SG_FALSE, 1, 0, 0, 10, 15), 1149 (SgWord *)SG_OBJ(&sg__rc_cgen14489.d14514[57]), SG_FALSE, 1, 0, 0, 20, 81), 1188 (SgWord *)SG_OBJ(&sg__rc_cgen14489.d14514[662]), SG_FALSE, 3, 0, 0, 13, 8), 1194 (SgWord *)SG_OBJ(&sg__rc_cgen14489.d14514[680]), SG_FALSE, 3, 0, 0, 13, 8), 1197 (SgWord *)SG_OBJ(&sg__rc_cgen14489.d14514[688]), SG_FALSE, 3, 0, 0, 13, 8), 1203 (SgWord *)SG_OBJ(&sg__rc_cgen14489.d14514[739]), SG_FALSE, 3, 0, 0, 13, 8), 1206 (SgWord *)SG_OBJ(&sg__rc_cgen14489.d14514[747]), SG_FALSE, 4, 0, 0, 15, 9), 1209 (SgWord *)SG_OBJ(&sg__rc_cgen14489.d14514[756]), SG_FALSE, 0, 0, 0, 0, 92), 1213 SG_CODE_BUILDER(SG_OBJ(&sg__rc_cgen14489.d14515[22])); [all …]
|
H A D | lib_scmlib.c | 6414 (SgWord *)SG_OBJ(&sg__rc_cgen8126.d8227[0]), SG_FALSE, 2, 0, 0, 16, 31), 6426 (SgWord *)SG_OBJ(&sg__rc_cgen8126.d8227[96]), SG_FALSE, 1, 0, 0, 9, 9), 6432 (SgWord *)SG_OBJ(&sg__rc_cgen8126.d8227[130]), SG_FALSE, 1, 0, 0, 9, 9), 6450 (SgWord *)SG_OBJ(&sg__rc_cgen8126.d8227[536]), SG_FALSE, 1, 0, 0, 9, 6), 6468 (SgWord *)SG_OBJ(&sg__rc_cgen8126.d8227[668]), SG_FALSE, 1, 0, 2, 9, 7), 6471 (SgWord *)SG_OBJ(&sg__rc_cgen8126.d8227[675]), SG_FALSE, 1, 0, 1, 8, 4), 6480 (SgWord *)SG_OBJ(&sg__rc_cgen8126.d8227[735]), SG_FALSE, 1, 0, 2, 9, 7), 6483 (SgWord *)SG_OBJ(&sg__rc_cgen8126.d8227[742]), SG_FALSE, 1, 0, 1, 8, 4), 6492 (SgWord *)SG_OBJ(&sg__rc_cgen8126.d8227[804]), SG_FALSE, 1, 0, 1, 8, 4), 6730 SG_CODE_BUILDER(SG_OBJ(&sg__rc_cgen8126.d8228[104])); [all …]
|
H A D | lib_arith.c | 149 SG_WORD(SG_OBJ(&sg__rc_cgen14520.d14530[0])) /* #<code-builder #f (1 0 1)> */, 217 SG_WORD(SG_OBJ(&sg__rc_cgen14520.d14530[2])) /* #<code-builder #f (1 0 1)> */, 490 (SgWord *)SG_OBJ(&sg__rc_cgen14520.d14529[0]), SG_FALSE, 1, 0, 1, 12, 29), 493 (SgWord *)SG_OBJ(&sg__rc_cgen14520.d14529[29]), SG_FALSE, 0, 1, 0, 19, 39), 496 (SgWord *)SG_OBJ(&sg__rc_cgen14520.d14529[68]), SG_FALSE, 1, 0, 1, 12, 29), 499 (SgWord *)SG_OBJ(&sg__rc_cgen14520.d14529[97]), SG_FALSE, 0, 1, 0, 26, 58), 502 (SgWord *)SG_OBJ(&sg__rc_cgen14520.d14529[155]), SG_FALSE, 2, 0, 0, 15, 18), 505 (SgWord *)SG_OBJ(&sg__rc_cgen14520.d14529[173]), SG_FALSE, 2, 0, 0, 15, 18), 514 (SgWord *)SG_OBJ(&sg__rc_cgen14520.d14529[342]), SG_FALSE, 0, 0, 0, 0, 28), 518 SG_CODE_BUILDER(SG_OBJ(&sg__rc_cgen14520.d14530[8])); [all …]
|
H A D | lib_program.c | 417 SG_WORD(SG_OBJ(&sg__rc_cgen14535.d14547[2])) /* #<code-builder repl (0 0 1)> */, 749 SG_WORD(SG_OBJ(&sg__rc_cgen14535.d14547[3])) /* #<code-builder script (3 0 0)> */, 753 SG_WORD(SG_OBJ(&sg__rc_cgen14535.d14547[4])) /* #<code-builder start (3 0 0)> */, 762 (SgWord *)SG_OBJ(&sg__rc_cgen14535.d14546[0]), SG_FALSE, 1, 0, 0, 9, 13), 765 (SgWord *)SG_OBJ(&sg__rc_cgen14535.d14546[13]), SG_FALSE, 1, 0, 0, 26, 101), 768 (SgWord *)SG_OBJ(&sg__rc_cgen14535.d14546[114]), SG_FALSE, 0, 0, 1, 16, 68), 771 (SgWord *)SG_OBJ(&sg__rc_cgen14535.d14546[182]), SG_FALSE, 3, 0, 0, 51, 264), 774 (SgWord *)SG_OBJ(&sg__rc_cgen14535.d14546[446]), SG_FALSE, 3, 0, 0, 25, 49), 777 (SgWord *)SG_OBJ(&sg__rc_cgen14535.d14546[495]), SG_FALSE, 0, 0, 0, 0, 34), 781 SG_CODE_BUILDER(SG_OBJ(&sg__rc_cgen14535.d14547[5])); [all …]
|
H A D | lib_treemap.c | 450 SG_WORD(SG_OBJ(&sg__rc_cgen13336.d13567[6])) /* #<code-builder #f (3 0 1)> */, 472 SG_WORD(SG_OBJ(&sg__rc_cgen13336.d13567[8])) /* #<code-builder #f (3 0 1)> */, 945 (SgWord *)SG_OBJ(&sg__rc_cgen13336.d13566[0]), SG_FALSE, 1, 0, 0, 12, 19), 948 (SgWord *)SG_OBJ(&sg__rc_cgen13336.d13566[19]), SG_FALSE, 1, 0, 0, 9, 9), 951 (SgWord *)SG_OBJ(&sg__rc_cgen13336.d13566[28]), SG_FALSE, 1, 0, 0, 9, 9), 960 (SgWord *)SG_OBJ(&sg__rc_cgen13336.d13566[179]), SG_FALSE, 2, 0, 0, 8, 5), 990 (SgWord *)SG_OBJ(&sg__rc_cgen13336.d13566[433]), SG_FALSE, 2, 0, 0, 8, 5), 993 (SgWord *)SG_OBJ(&sg__rc_cgen13336.d13566[438]), SG_FALSE, 2, 0, 1, 9, 4), 999 (SgWord *)SG_OBJ(&sg__rc_cgen13336.d13566[485]), SG_FALSE, 2, 0, 1, 9, 4), 1584 SG_CODE_BUILDER(SG_OBJ(&sg__rc_cgen13336.d13567[23])); [all …]
|
H A D | charset.c | 111 return SG_OBJ(cs); in charset_cache_reader() 159 return SG_OBJ(dest); in Sg_CharSetCopy() 213 return SG_OBJ(cs); in Sg_CharSetAddRange() 236 return SG_OBJ(cs); in Sg_CharSetAddRange() 241 return SG_OBJ(cs); in Sg_CharSetAddRange() 245 return SG_OBJ(cs); in Sg_CharSetAddRange() 268 return SG_OBJ(dest); in Sg_CharSetAdd() 289 Sg_TreeMapCoreSet(cs->large, SG_OBJ(last+1), SG_OBJ(e->key-1), 0); in Sg_CharSetComplement() 294 Sg_TreeMapCoreSet(cs->large, SG_OBJ(last+1), SG_OBJ(SG_CHAR_MAX), 0); in Sg_CharSetComplement() 296 return SG_OBJ(cs); in Sg_CharSetComplement() [all …]
|
H A D | lib_sandbox.c | 288 (SgWord *)SG_OBJ(&sg__rc_cgen13257.d13264[0]), SG_FALSE, 1, 0, 0, 10, 8), 291 (SgWord *)SG_OBJ(&sg__rc_cgen13257.d13264[8]), SG_FALSE, 0, 0, 0, 0, 8), 294 (SgWord *)SG_OBJ(&sg__rc_cgen13257.d13264[16]), SG_FALSE, 1, 0, 0, 10, 8), 297 (SgWord *)SG_OBJ(&sg__rc_cgen13257.d13264[24]), SG_FALSE, 1, 0, 0, 13, 16), 300 (SgWord *)SG_OBJ(&sg__rc_cgen13257.d13264[40]), SG_FALSE, 0, 0, 0, 0, 7), 303 (SgWord *)SG_OBJ(&sg__rc_cgen13257.d13264[47]), SG_FALSE, 1, 0, 0, 10, 8), 306 (SgWord *)SG_OBJ(&sg__rc_cgen13257.d13264[55]), SG_FALSE, 1, 0, 0, 11, 13), 309 (SgWord *)SG_OBJ(&sg__rc_cgen13257.d13264[68]), SG_FALSE, 1, 0, 0, 10, 8), 312 (SgWord *)SG_OBJ(&sg__rc_cgen13257.d13264[76]), SG_FALSE, 1, 0, 0, 14, 24), 373 SG_CODE_BUILDER(SG_OBJ(&sg__rc_cgen13257.d13265[1])); [all …]
|
H A D | compiler-aux.c | 234 (SgWord *)SG_OBJ(&sg__rc_cgen8820.d8845[0]), SG_FALSE, 1, 0, 0, 14, 36), 237 (SgWord *)SG_OBJ(&sg__rc_cgen8820.d8845[36]), SG_FALSE, 0, 0, 0, 0, 66), 241 SG_CODE_BUILDER(SG_OBJ(&sg__rc_cgen8820.d8846[1])); 295 ((SgWord*)SG_OBJ(&sg__rc_cgen8820.d8845[0]))[2] = SG_WORD(sg__rc_cgen8820.d8844[3]); in Sg__Init_sagittarius_compiler_util() 296 ((SgWord*)SG_OBJ(&sg__rc_cgen8820.d8845[0]))[6] = SG_WORD(sg__rc_cgen8820.d8844[5]); in Sg__Init_sagittarius_compiler_util() 297 ((SgWord*)SG_OBJ(&sg__rc_cgen8820.d8845[0]))[9] = SG_WORD(sg__rc_cgen8820.d8844[8]); in Sg__Init_sagittarius_compiler_util() 298 ((SgWord*)SG_OBJ(&sg__rc_cgen8820.d8845[0]))[13] = SG_WORD(sg__rc_cgen8820.d8844[10]); in Sg__Init_sagittarius_compiler_util() 299 ((SgWord*)SG_OBJ(&sg__rc_cgen8820.d8845[0]))[16] = SG_WORD(sg__rc_cgen8820.d8844[12]); in Sg__Init_sagittarius_compiler_util() 300 ((SgWord*)SG_OBJ(&sg__rc_cgen8820.d8845[0]))[20] = SG_WORD(sg__rc_cgen8820.d8844[14]); in Sg__Init_sagittarius_compiler_util() 301 ((SgWord*)SG_OBJ(&sg__rc_cgen8820.d8845[0]))[23] = SG_WORD(sg__rc_cgen8820.d8844[16]); in Sg__Init_sagittarius_compiler_util() [all …]
|
H A D | lib_fixnums.c | 878 (SgWord *)SG_OBJ(&sg__rc_cgen10978.d11569[0]), SG_FALSE, 2, 0, 0, 11, 15), 881 (SgWord *)SG_OBJ(&sg__rc_cgen10978.d11569[15]), SG_FALSE, 2, 0, 0, 11, 15), 884 (SgWord *)SG_OBJ(&sg__rc_cgen10978.d11569[30]), SG_FALSE, 3, 0, 0, 25, 114), 896 (SgWord *)SG_OBJ(&sg__rc_cgen10978.d11569[624]), SG_FALSE, 0, 0, 0, 0, 28), 1668 SG_RESULT=(SG_OBJ((((intptr_t )(fx1)))&( in sagittarius_fixnums_fxand() 1674 {SgObject ret=SG_OBJ((((intptr_t )(fx1)))&( in sagittarius_fixnums_fxand() 1728 SG_RESULT=(SG_OBJ((((intptr_t )(fx1)))|( in sagittarius_fixnums_fxior() 1734 {SgObject ret=SG_OBJ((((intptr_t )(fx1)))|( in sagittarius_fixnums_fxior() 1794 {SgObject ret=SG_OBJ((((intptr_t )(fx1)))^( in sagittarius_fixnums_fxxor() 2328 SG_CODE_BUILDER(SG_OBJ(&sg__rc_cgen10978.d11570[6])); [all …]
|
H A D | subr.c | 76 return SG_OBJ(s); in Sg_MakeSubr() 86 return SG_OBJ(s); in Sg_MakeSubrFull() 101 return SG_OBJ(theNullProc); in Sg_NullProc() 110 proc->setter = SG_OBJ(setter); in Sg_SetterSet() 112 return SG_OBJ(proc); in Sg_SetterSet() 118 return Sg_VMApply(SG_OBJ(&Sg_GenericObjectSetter), in object_setter() 119 Sg_Cons(SG_OBJ(data), args[0])); in object_setter()
|
H A D | lib_flonums.c | 826 (SgWord *)SG_OBJ(&sg__rc_cgen11571.d12057[0]), SG_FALSE, 1, 0, 0, 9, 13), 829 (SgWord *)SG_OBJ(&sg__rc_cgen11571.d12057[13]), SG_FALSE, 2, 0, 0, 10, 12), 832 (SgWord *)SG_OBJ(&sg__rc_cgen11571.d12057[25]), SG_FALSE, 2, 0, 0, 14, 38), 835 (SgWord *)SG_OBJ(&sg__rc_cgen11571.d12057[63]), SG_FALSE, 1, 0, 0, 9, 6), 838 (SgWord *)SG_OBJ(&sg__rc_cgen11571.d12057[69]), SG_FALSE, 1, 0, 1, 9, 5), 841 (SgWord *)SG_OBJ(&sg__rc_cgen11571.d12057[74]), SG_FALSE, 1, 0, 0, 11, 40), 844 (SgWord *)SG_OBJ(&sg__rc_cgen11571.d12057[114]), SG_FALSE, 2, 0, 0, 11, 15), 847 (SgWord *)SG_OBJ(&sg__rc_cgen11571.d12057[129]), SG_FALSE, 2, 0, 0, 11, 15), 850 (SgWord *)SG_OBJ(&sg__rc_cgen11571.d12057[144]), SG_FALSE, 0, 0, 0, 0, 251), 3284 SG_CODE_BUILDER(SG_OBJ(&sg__rc_cgen11571.d12058[8])); [all …]
|
H A D | clos.c | 649 return SG_OBJ(sac); in Sg_MakeSlotAccessor() 1227 return Sg_VMSlotRef(SG_OBJ(data[0]), SG_OBJ(data[1])); in vmslot_ref_cc() 1266 return Sg_VMSlotSet(SG_OBJ(data[0]), SG_OBJ(data[1]), SG_OBJ(data[2])); in vmslot_set_cc() 1340 return Sg_VMSlotBoundP(SG_OBJ(data[0]), SG_OBJ(data[1])); in vmslot_boundp_cc() 1882 return SG_OBJ(gf); in generic_allocate() 1912 return SG_OBJ(gf); in Sg_MakeBaseGeneric() 1953 SG_OBJ(gf), h), in Sg_NoNextMethod() 2077 return SG_OBJ(nm); in Sg_MakeNextMethod() 2483 SG_OBJ(c)); in allocate_impl() 2758 return SG_OBJ(m); in method_initialize_impl() [all …]
|
H A D | weak.c | 101 return SG_OBJ(v); in Sg_MakeWeakVector() 259 return SG_OBJ(val); in weak_hashtable_ref() 311 Sg_UnregisterFinalizer(SG_OBJ(key)); 341 return SG_OBJ(val); 351 base = Sg_GCBase(SG_OBJ(key)); 389 return SG_OBJ(val); 441 return SG_OBJ(wh); 512 SgObject table = SG_OBJ(core->data); 514 SgObject key = SG_OBJ(e->key); 539 return SG_OBJ(wh); [all …]
|
H A D | string.c | 174 r = Sg_HashTableSet(stable, SG_OBJ(z), SG_OBJ(z), in makestring() 178 r = SG_OBJ(z); in makestring() 200 return SG_OBJ(z); in Sg_MakeStringC() 211 return SG_OBJ(z); in Sg_ReserveString() 217 return SG_OBJ(z); in Sg_MakeEmptyString() 250 r = Sg_HashTableSet(stable, SG_OBJ(r), SG_OBJ(r), in Sg_StringIntern() 309 return SG_OBJ(z); in Sg_StringAppend2() 321 return SG_OBJ(p); in Sg_StringAppendC() 347 return SG_OBJ(r); in Sg_StringAppend() 404 return SG_OBJ(s); in Sg_CopyString() [all …]
|
H A D | symbol.c | 90 e = Sg_HashTableRef(obtable, SG_OBJ(name), SG_FALSE); in Sg_MakeSymbol() 103 if (!interned) return SG_OBJ(sym); in Sg_MakeSymbol() 106 e = Sg_HashTableSet(obtable, SG_OBJ(name), SG_OBJ(sym), SG_HASH_NO_OVERWRITE); in Sg_MakeSymbol() 132 return SG_OBJ(sym); in Sg_Gensym()
|
H A D | lib_regex.c | 124 SG_WORD(SG_OBJ(&sg__rc_cgen12127.d12134[0])) /* #<code-builder make-replacer (2 1 1)> */, 188 SG_WORD(SG_OBJ(&sg__rc_cgen12127.d12134[1])) /* #<code-builder make-replacer (1 0 0)> */, 195 SG_WORD(SG_OBJ(&sg__rc_cgen12127.d12134[2])) /* #<code-builder make-replacer (2 1 1)> */, 217 (SgWord *)SG_OBJ(&sg__rc_cgen12127.d12133[0]), SG_FALSE, 2, 1, 1, 15, 19), 220 (SgWord *)SG_OBJ(&sg__rc_cgen12127.d12133[19]), SG_FALSE, 1, 0, 0, 7, 4), 223 (SgWord *)SG_OBJ(&sg__rc_cgen12127.d12133[23]), SG_FALSE, 2, 1, 1, 15, 19), 226 (SgWord *)SG_OBJ(&sg__rc_cgen12127.d12133[42]), SG_FALSE, 2, 1, 1, 15, 19), 229 (SgWord *)SG_OBJ(&sg__rc_cgen12127.d12133[61]), SG_FALSE, 3, 1, 0, 17, 21), 232 (SgWord *)SG_OBJ(&sg__rc_cgen12127.d12133[82]), SG_FALSE, 0, 0, 0, 0, 28), 1165 SG_CODE_BUILDER(SG_OBJ(&sg__rc_cgen12127.d12134[5])); [all …]
|
H A D | hashtable.c | 406 return Sg_EqvHash(SG_OBJ(key), 0); in eqv_hash() 411 return Sg_EqvP(SG_OBJ(key), SG_OBJ(k2)); in eqv_compare() 421 return Sg_EqualP(SG_OBJ(key), SG_OBJ(k2)); in equal_compare() 434 SgObject key = SG_OBJ(k); in string_access() 449 SgObject ee = SG_OBJ(e->key); in string_access() 508 SG_CALL_SUBR2(ret, compare, SG_OBJ(key), SG_OBJ(k2)); in general_compare() 510 ret = Sg_Apply2(table->generalCompare, SG_OBJ(key), SG_OBJ(k2)); in general_compare() 754 return SG_OBJ(ht); in hash_cache_reader() 855 return SG_OBJ(dst); in hashtable_copy() 921 return SG_OBJ(table); in Sg_InitHashTableSimple() [all …]
|
H A D | exceptions.c | 160 return SG_OBJ(c); in Sg_ConditionAllocate() 217 return SG_OBJ(c); in syntax_allocate() 265 return SG_OBJ(c); in message_allocate() 297 return SG_OBJ(c); in irr_allocate() 327 return SG_OBJ(c); in who_allocate() 380 return SG_OBJ(c); in port_allocate() 411 return SG_OBJ(c); in enc_allocate() 453 return SG_OBJ(c); in pos_allocate() 483 return SG_OBJ(c); in fn_allocate() 546 return SG_OBJ(c); in comp_allocate() [all …]
|
H A D | pair.c | 64 return SG_OBJ(z); in Sg_Cons() 79 SG_SET_CAR(z, SG_OBJ(y)); in Sg_Acons() 81 return SG_OBJ(z); in Sg_Acons() 105 start = SG_OBJ(make_pair()); in Sg_VaList() 111 item = SG_OBJ(make_pair()); in Sg_VaList() 298 result = SG_OBJ(p); in Sg_Reverse() 304 result = SG_OBJ(p); in Sg_Reverse() 547 SG_OBJ(&list_transpose_s_stub)); in Sg__InitPair() 551 SG_OBJ(&list_transpose_p_stub)); in Sg__InitPair()
|