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

[factor.git] / extra / dns / dns.factor

diff --git a/extra/dns/dns.factor b/extra/dns/dns.factor
index 917e1bcb2b03363db0a99fe6cfd062dea9546f1a..d8e3f6bdf77a58eb64ac1bdab830eabddd8445e3 100644 (file)
--- a/extra/dns/dns.factor
+++ b/extra/dns/dns.factor
@@ -242,7 +242,7 @@ ERROR: unsupported-domain-name string ;
 
 : >n/label ( string -- byte-array )
     dup [ ascii? ] all?
-    [ throw-unsupported-domain-name ] unless
+    [ unsupported-domain-name ] unless
     [ length 1array ] [ ] bi B{ } append-as ;
 
 : >name ( domain -- byte-array )