From aafc2a61907381e281d0c9b000b83bb084be8fa9 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Sat, 23 Mar 2013 21:35:36 -0700 Subject: [PATCH] vocabs.metadata: Rename unsupported-platform. --- basis/vocabs/metadata/metadata.factor | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/basis/vocabs/metadata/metadata.factor b/basis/vocabs/metadata/metadata.factor index b09068e1ea..83621349ea 100644 --- a/basis/vocabs/metadata/metadata.factor +++ b/basis/vocabs/metadata/metadata.factor @@ -118,7 +118,7 @@ ERROR: bad-platform name ; TUPLE: unsupported-platform vocab requires ; -: unsupported-platform ( vocab requires -- ) +: throw-unsupported-platform ( vocab requires -- ) \ unsupported-platform boa throw-continue ; M: unsupported-platform summary @@ -126,5 +126,5 @@ M: unsupported-platform summary [ 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