change ERROR: words from throw-foo back to foo.

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

diff --git a/extra/cuda/nvcc/nvcc.factor b/extra/cuda/nvcc/nvcc.factor
index 443ff21363d91a4c6dd7b7116a42e89f19d47b78..c1e35c32caea95275cfbcad681eae616b8b2f608 100644 (file)
--- a/extra/cuda/nvcc/nvcc.factor
+++ b/extra/cuda/nvcc/nvcc.factor
@@ -26,6 +26,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 ;