; a0 - window

	xdef	_CloseW

_CloseW	move.l	(50,a0),d0
	cmp.l	_stdrast,d0
	bne.s	.close
	clr.l	_stdrast		; clear rastport
.close	move.l	_IntuitionBase,a6
	jsr	(-72,a6)		; CloseWindow()
	rts

	xref	_stdrast
	xref	_IntuitionBase