ack/lang/basic/lib/setline.e

11 lines
145 B
Plaintext
Raw Permalink Normal View History

1984-11-29 14:22:02 +00:00
#
mes 2,EM_WSIZE,EM_PSIZE
; Save the line where the error occurred
exp $_setline
pro $_setline,0
exa _erlsym
loe 0
ste _erlsym
ret 0
end