factor: trim using lists

[factor.git] / extra / cuda / nvcc / nvcc.factor

diff --git a/extra/cuda/nvcc/nvcc.factor b/extra/cuda/nvcc/nvcc.factor
index 443ff21363d91a4c6dd7b7116a42e89f19d47b78..a5b7f08fb8edbcdcfdd324cbb291c9e62dd0ecbf 100644 (file)
--- a/extra/cuda/nvcc/nvcc.factor
+++ b/extra/cuda/nvcc/nvcc.factor
@@ -1,8 +1,7 @@
 ! Copyright (C) 2010 Doug Coleman.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: arrays combinators.smart io.backend io.directories
-io.launcher io.pathnames kernel locals math sequences splitting
-system ;
+USING: combinators.smart io.backend io.directories io.launcher
+io.pathnames kernel math sequences splitting system ;
 IN: cuda.nvcc
 
 HOOK: nvcc-path os ( -- path )
@@ -26,6 +25,6 @@ ERROR: nvcc-failed n path ;
     path normalize-path :> path2
     path2 parent-directory [
         path2 nvcc-command
-        run-process wait-for-process [ path2 throw-nvcc-failed ] unless-zero
+        run-process wait-for-process [ path2 nvcc-failed ] unless-zero
         path2 cu>ptx
     ] with-directory ;