comparison src/eval.c @ 30610:5a0f2d368f58

(error): Use xfree instead of free.
author Gerd Moellmann <gerd@gnu.org>
date Sat, 05 Aug 2000 19:27:14 +0000
parents 887b4d52a334
children a524f6c09fe0
comparison
equal deleted inserted replaced
30609:6e37e9488e49 30610:5a0f2d368f58
1649 } 1649 }
1650 } 1650 }
1651 1651
1652 string = build_string (buffer); 1652 string = build_string (buffer);
1653 if (allocated) 1653 if (allocated)
1654 free (buffer); 1654 xfree (buffer);
1655 1655
1656 Fsignal (Qerror, Fcons (string, Qnil)); 1656 Fsignal (Qerror, Fcons (string, Qnil));
1657 } 1657 }
1658 1658
1659 DEFUN ("commandp", Fcommandp, Scommandp, 1, 1, 0, 1659 DEFUN ("commandp", Fcommandp, Scommandp, 1, 1, 0,