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

vocabs.metadata: Rename unsupported-platform.

db4
Doug Coleman 2013-03-23 21:35:36 -07:00
parent 342b8e5cab
commit aafc2a6190
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/vocabs/metadata/metadata.factor
View File

@ -118,7 +118,7 @@ ERROR: bad-platform name ;
TUPLE: unsupported-platform vocab requires ; TUPLE: unsupported-platform vocab requires ;
: unsupported-platform ( vocab requires -- ) : throw-unsupported-platform ( vocab requires -- )
\ unsupported-platform boa throw-continue ; \ unsupported-platform boa throw-continue ;
M: unsupported-platform summary M: unsupported-platform summary
@ -126,5 +126,5 @@ M: unsupported-platform summary
[ [
dup vocab-platforms dup supported-platform? dup vocab-platforms dup supported-platform?
[ 2drop ] [ [ vocab-name ] dip unsupported-platform ] if [ 2drop ] [ [ vocab-name ] dip throw-unsupported-platform ] if
] check-vocab-hook set-global ] check-vocab-hook set-global