Mercurial > hg > xemacs-beta

comparison src/eval.c @ 3577:91950589598c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2006-08-29 14:10:51 by stephent] Some docstring improvements. <87irkbk5ad.fsf@tleepslib.sk.tsukuba.ac.jp>
author stephent
date Tue, 29 Aug 2006 14:10:54 +0000
parents d674024a8674
children 73288faa5759
comparison
equal deleted inserted replaced
3576:ff0dac582fcb 3577:91950589598c
1470 #endif /* ERROR_CHECK_TRAPPING_PROBLEMS */ 1470 #endif /* ERROR_CHECK_TRAPPING_PROBLEMS */
1471 1471
1472 DEFUN ("catch", Fcatch, 1, UNEVALLED, 0, /* 1472 DEFUN ("catch", Fcatch, 1, UNEVALLED, 0, /*
1473 \(catch TAG BODY...): eval BODY allowing nonlocal exits using `throw'. 1473 \(catch TAG BODY...): eval BODY allowing nonlocal exits using `throw'.
1474 TAG is evalled to get the tag to use. Then the BODY is executed. 1474 TAG is evalled to get the tag to use. Then the BODY is executed.
1475 Within BODY, (throw TAG) with same (`eq') tag exits BODY and this `catch'. 1475 Within BODY, (throw TAG VAL) with same (`eq') tag exits BODY and this `catch'.
1476 If no throw happens, `catch' returns the value of the last BODY form. 1476 If no throw happens, `catch' returns the value of the last BODY form.
1477 If a throw happens, it specifies the value to return from `catch'. 1477 If a throw happens, it specifies the value to return from `catch'.
1478 */ 1478 */
1479 (args)) 1479 (args))
1480 { 1480 {