basis: ERROR: changes.

[factor.git] / basis / core-text / core-text.factor

diff --git a/basis/core-text/core-text.factor b/basis/core-text/core-text.factor
index 98b6c4a189eaf2ac2e7f38ba2fa07ec127b0bd14..c4f20998e8929801602e9e1cf404d46dbd3a6fdb 100644 (file)
--- a/basis/core-text/core-text.factor
+++ b/basis/core-text/core-text.factor
@@ -45,7 +45,7 @@ MEMO: make-attributes ( open-font color -- hashtable )
     [
         [
             dup selection? [ string>> ] when
-            dup string? [ not-a-string ] unless
+            dup string? [ throw-not-a-string ] unless
         ] 2dip
         make-attributes <CFAttributedString> &CFRelease
         CTLineCreateWithAttributedString