Unified · Split
| @@ -790,17 +790,6 @@ BUILTIN("copy", copy) · 789 unmodified lines | |||
| 790 | return cvalue_copy(v); | 790 | return cvalue_copy(v); |
| 791 | } | 791 | } |
| 792 | 792 | ||
| 793 | sl_purefn | ||
| 794 | BUILTIN("plain-old-data?", plain_old_datap) | ||
| 795 | { | ||
| 796 | argcount(nargs, 1); | ||
| 797 | return (isubnum(args[0]) || | ||
| 798 | isrune(args[0]) || | ||
| 799 | (iscvalue(args[0]) && cv_isPOD(ptr(args[0])))) | ||
| 800 | ? sl_t | ||
| 801 | : sl_nil; | ||
| 802 | } | ||
| 803 | |||
| 804 | static void | 793 | static void |
| 805 | cvalue_init(sl_type *type, sl_v v, void *dest) | 794 | cvalue_init(sl_type *type, sl_v v, void *dest) |
| 806 | { | 795 | { |