From d60e586f481594bd8b7bc995f8045f74f952a2ca Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Wed, 18 Mar 2009 17:08:18 -0500 Subject: [PATCH] Fix tools.deploy.shaker's call( and execute( stripping --- basis/tools/deploy/shaker/shaker.factor | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) diff --git a/basis/tools/deploy/shaker/shaker.factor b/basis/tools/deploy/shaker/shaker.factor index 239d34b864..a729e40e2a 100755 --- a/basis/tools/deploy/shaker/shaker.factor +++ b/basis/tools/deploy/shaker/shaker.factor @@ -54,11 +54,8 @@ IN: tools.deploy.shaker ] when ; : strip-call ( -- ) - "call" vocab [ - "Stripping stack effect checking from call( and execute(" show - "vocab:tools/deploy/shaker/strip-call.factor" - run-file - ] when ; + "Stripping stack effect checking from call( and execute(" show + "vocab:tools/deploy/shaker/strip-call.factor" run-file ; : strip-cocoa ( -- ) "cocoa" vocab [