basis: ERROR: changes.

[factor.git] / basis / unix / unix.factor

diff --git a/basis/unix/unix.factor b/basis/unix/unix.factor
index 4364fd40d0e618cc76bb15c14dd01aa7a311cccb..76b06634792a2bf24d64df8cc0510aaf127275c1 100644 (file)
--- a/basis/unix/unix.factor
+++ b/basis/unix/unix.factor
@@ -32,7 +32,7 @@ MACRO:: unix-system-call ( quot -- quot )
         failed [
             n narray
             errno dup strerror
-            word unix-system-call-error
+            word throw-unix-system-call-error
         ] [
             n ndrop
             ret
@@ -51,7 +51,7 @@ MACRO:: unix-system-call-allow-eintr ( quot -- quot )
             errno EINTR = [
                 n narray
                 errno dup strerror
-                word unix-system-call-error
+                word throw-unix-system-call-error
             ] unless
         ] [
             n ndrop