(xdef 'scdr (lambda (x val) (if (string? x) (err "Can't set cdr of a string" x) (set-cdr! x val)) val))
From ac.scm ©
ac.scm