diff --git a/src/builtins/sfns.c b/src/builtins/sfns.c index f50fb4ce..63e79a79 100644 --- a/src/builtins/sfns.c +++ b/src/builtins/sfns.c @@ -441,7 +441,6 @@ FORCE_INLINE B affixes(B x, i32 post) { B take_c1(B t, B x) { return affixes(x, 0); } B drop_c1(B t, B x) { return affixes(x, 1); } -extern B rt_take, rt_drop; B take_c2(B, B, B); B drop_c2(B, B, B); NOINLINE B takedrop_highrank(bool take, B w, B x) { @@ -1064,7 +1063,6 @@ static u64 bit_reverse(u64 x) { c = (c&0x5555555555555555)<<1 | (c&0xaaaaaaaaaaaaaaaa)>>1; return c; } -extern B rt_reverse; B reverse_c1(B t, B x) { if (isAtm(x) || RNK(x)==0) thrM("⌽: Argument cannot be a unit"); usz n = *SH(x); diff --git a/src/load.c b/src/load.c index c8955659..ac2de4a8 100644 --- a/src/load.c +++ b/src/load.c @@ -106,8 +106,8 @@ B comp_currArgs; B comp_currSrc; B comp_currRe; // ⟨REPL mode ⋄ scope ⋄ compiler ⋄ runtime ⋄ glyphs ⋄ sysval names ⋄ sysval values⟩ -B rt_undo, rt_select, rt_slash, rt_pick, rt_take, rt_drop, rt_insert, rt_depth, - rt_group, rt_under, rt_reverse, rt_count, rt_find, rt_transp; +B rt_undo, rt_select, rt_slash, rt_pick, rt_insert, rt_depth, + rt_group, rt_under, rt_count, rt_find, rt_transp; Block* load_compObj(B x, B src, B path, Scope* sc) { // consumes x,src SGet(x) usz xia = IA(x); @@ -416,11 +416,8 @@ void load_init() { // very last init function rt_undo = Get(rtObjRaw, n_undo ); gc_add(rt_undo); rt_select = Get(rtObjRaw, n_select ); gc_add(rt_select); rt_slash = Get(rtObjRaw, n_slash ); gc_add(rt_slash); - rt_take = Get(rtObjRaw, n_take ); gc_add(rt_take); - rt_drop = Get(rtObjRaw, n_drop ); gc_add(rt_drop); rt_group = Get(rtObjRaw, n_group ); gc_add(rt_group); rt_under = Get(rtObjRaw, n_under ); gc_add(rt_under); - rt_reverse = Get(rtObjRaw, n_reverse ); gc_add(rt_reverse); rt_count = Get(rtObjRaw, n_count ); gc_add(rt_count); rt_find = Get(rtObjRaw, n_find ); gc_add(rt_find); rt_transp = Get(rtObjRaw, n_transp ); gc_add(rt_transp);