$! --- Copyright University of Sussex 1990.  All rights reserved. ---------
$! File:           C.vms/com/mkflavours.com
$! Purpose:        Build saved image for flavours system
$! Author:         Mark Rubinstein, Apr 17 1986 (see revisions)
$! Documentation:  TEACH * FLAVOURS
$! Related Files:  LIB * FLAVOURS
$
$
$ pop11 \%nort \%noinit

lib flavours

;;; comment out the next two lines if you don't want the browser saved.
lib browseself_message
false -> vedsetupdone;

"flavours" -> vedteachname;

if sys_lock_system('poplocalbin:flavours.psv', true, 'FLAVOURS') then
	popheader <> '\n\t' <> pop_system_version -> popheader;
	syssetup();
	setpop();
endif;

$
$ purge poplocalbin:flavours.psv
$
$! --- Revision History ---------------------------------------------------
$! --- John Gibson, May 25 1991     Added %nort arg
$! --- John Williams, Oct  9 1990
$!		%noinit instead of =noinit
$! --- John Williams, Oct  4 1990
$!		Now uses =noinit and -syssetup-
$! --- John Gibson, Jun 21 1989
$!		Made 2nd arg to sys_lock_system true instead of false