<<>> <>> <> <> <> <> <<>> alias MAYBE command <> Require Cedar WallTapestry WalnutUtils Date setproperty rootFileName ($(WalnutFile $1)) MAYBE CloseAll MAYBE walnut -n $rootFileName MAYBE Sleep 5 MAYBE Waitt setproperty rootDirectory ($(DirectoryOf $rootFileName)) setproperty logFileName ($rootDirectory$(WalnutFile $rootFileName log)) MAYBE WCDetails off MAYBE Delete $logFileName.new* Echo Compacting Walnut Database $rootFileName to $logFileName.new MAYBE time WalnutCompact $rootFileName $logFileName.new MAYBE CloseAll