Unified · Split
| @@ -790,17 +790,6 @@ BUILTIN("copy", copy) · 789 unmodified lines | ||
| 790 | 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 | 793 | static void |
| 805 | 794 | cvalue_init(sl_type *type, sl_v v, void *dest) |
| 806 | 795 | { |