/[gcl]/gcl/cmpnew/cmplam.lsp
ViewVC logotype

Diff of /gcl/cmpnew/cmplam.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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)

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26