comparison src/data.c @ 436:080151679be2 r21-2-26

Import from CVS: tag r21-2-26
author cvs
date Mon, 13 Aug 2007 11:31:24 +0200
parents 3ecd8885ac67
children 8de8e3f6228a
comparison
equal deleted inserted replaced
435:53cf74a9db44 436:080151679be2
658 if (EQ (hare, tortoise)) 658 if (EQ (hare, tortoise))
659 return Fsignal (Qcyclic_function_indirection, list1 (object)); 659 return Fsignal (Qcyclic_function_indirection, list1 (object));
660 } 660 }
661 661
662 if (errorp && UNBOUNDP (hare)) 662 if (errorp && UNBOUNDP (hare))
663 signal_void_function_error (object); 663 return signal_void_function_error (object);
664 664
665 return hare; 665 return hare;
666 } 666 }
667 667
668 DEFUN ("indirect-function", Findirect_function, 1, 1, 0, /* 668 DEFUN ("indirect-function", Findirect_function, 1, 1, 0, /*