Skip to main content

Browse the archive

Revision 62fc2f7d6c41edcf685277a872c68e47a76fb254 authored by Dan Malec on 12 December 2020, 01:50:52 UTC, committed by Dan Malec on 14 December 2020, 02:13:28 UTC 
FEAT-CD: Initial pass at having a CD build.
 
* Add a workflow which builds candidate release artifacts for Linux, OSX, & Windows
* Cache wxWidgets builds for build speed and to not put load on their servers
* Cache download of inno installer to avoid putting load on their servers
* Create a development release
* Fixed compiler error that shows up on OSX CD machines
1 parent 7f090ac
Raw File
case 
;;; -*- logo -*-

.macro case :case.value :case.clauses [:caseignoredp "true]
catch "case.error [output case.helper :case.value :case.clauses]
(throw "error [Empty CASE clause])
end

to case.helper :case.value :case.clauses
if emptyp :case.clauses [output []]
if emptyp first :case.clauses [throw "case.error]
if or equalp first first :case.clauses "else ~
      memberp :case.value first first :case.clauses ~
   [output butfirst first :case.clauses]
output case.helper :case.value butfirst :case.clauses
end

bury [case case.helper]
back to top