steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
extra/mason/platform/platform.factor
View File

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