Fix webapps.mason breakage

db4
Slava Pestov 2011-09-01 01:15:56 -07:00
parent e04b0acdcd
commit 67c57417d7
1 changed files with 1 additions and 2 deletions

View File

@ -5,11 +5,10 @@ mason.config bootstrap.image assocs ;
IN: mason.platform
: (platform) ( os cpu -- string )
[ name>> ] bi@
{ { CHAR: . CHAR: - } } substitute "-" glue ;
: platform ( -- string )
target-os get target-cpu get (platform) ;
target-os get name>> target-cpu get name>> (platform) ;
: gnu-make ( -- string )
target-os get { freebsd openbsd netbsd } member? "gmake" "make" ? ;