/**  **/
/*A: K McIsaac*/
/*S: University of Western Australia, Nedlands 6009, Australia*/
/*D: January, 1988 */
/*K: Line number*/
/*: Lineno[]
	Returns current line number. */ 

<<XList0

/*: Lineno[]
	Returns the current line number */
Lineno[] :: Len[#I]

/*: Saveline[$sym,$exp]
	Saves $exp on $sym, indexed by the current line number. Multiple
	expressions are saved as a list. */
Saveline_:Tier; _Saveline[Smp] : {0,}
Saveline[$sym,$exp] :: \
($sym[Lineno[]] : App[$exp, If[Listp[$sym[Lineno[]]],$sym[Lineno[]],{}]]) 

