ack/lang/basic/lib/setline.e

#
 mes 2,EM_WSIZE,EM_PSIZE
; $Id$
; Save the line where the error occurred
 exp $_setline
 pro $_setline,0
 exa _erlsym
 loe 0
 ste _erlsym
 ret 0
 end
* empty log message * 1984-11-29 14:22:02 +00:00			`#`
			`mes 2,EM_WSIZE,EM_PSIZE`
Header --> Id 1994-06-24 11:31:16 +00:00			`; $Id$`
* empty log message * 1984-11-29 14:22:02 +00:00			`; Save the line where the error occurred`
			`exp $_setline`
			`pro $_setline,0`
			`exa _erlsym`
			`loe 0`
			`ste _erlsym`
			`ret 0`
			`end`