Ur/Web: src/config.sml.in annotate

New argument to transactional free functions, to specify whether we are about to retry

author	Adam Chlipala <adam@chlipala.net>
date	Sat, 04 Dec 2010 11:15:20 -0500
parents	e12cef71aa1a
children	b2bc8bcd546f

rev	line source
adamc@378	1 structure Config :> CONFIG = struct
adamc@378	2
adamc@378	3 val bin = "@BIN@"
adamc@378	4 val lib = "@LIB@"
adamc@378	5 val includ = "@INCLUDE@"
adamc@378	6 val sitelisp = "@SITELISP@"
adamc@378	7
adamc@378	8 val libUr = OS.Path.joinDirFile {dir = lib,
adamc@378	9 file = "ur"}
adamc@378	10 val libC = OS.Path.joinDirFile {dir = lib,
adamc@378	11 file = "c"}
adamc@569	12 val libJs = OS.Path.joinDirFile {dir = lib,
adamc@569	13 file = "js"}
adamc@378	14
adamc@435	15 val gccArgs = "@GCCARGS@"
adam@1317	16 val libMhash = "@MHASH_LIB_DIR@"
adamc@435	17
adamc@378	18 end

Mercurial > urweb