Parent Directory | Revision Log | Patch
revision 1.2 by camm, Sat Jul 20 07:10:54 2002 UTC | revision 1.3 by camm, Wed Feb 26 22:21:35 2003 UTC | |
---|---|---|
# | Line 517 | Line 517 |
517 | (reset-top))) | (reset-top))) |
518 | ||
519 | (when *tail-recursion-info* | (when *tail-recursion-info* |
520 | (push 'tail-recursion-mark *unwind-exit*) (wt-nl1 "goto TTL;")(wt-nl1 "TTL:;")) | (push 'tail-recursion-mark *unwind-exit*) (wt-nl "goto TTL;")(wt-nl1 "TTL:;")) |
521 | ||
522 | ;;; Now the parameters are ready! | ;;; Now the parameters are ready! |
523 | (c2expr body) | (c2expr body) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |