help.html: fix escape-filename

diff --git a/basis/help/html/html-tests.factor b/basis/help/html/html-tests.factor
index 61414cdfa2f1dddf9388601a44a18dc7b4bb4222..3ba336be0bff6604596047d2f27dd96c74e04109 100644 (file)
--- a/basis/help/html/html-tests.factor
+++ b/basis/help/html/html-tests.factor
@@ -2,3 +2,5 @@ IN: help.html.tests
 USING: help.html tools.test help.topics kernel ;
 
 [ ] [ "xml" >link help>html drop ] unit-test
+
+[ "article-foobar.html" ] [ "foobar" >link topic>filename ] unit-test
\ No newline at end of file

diff --git a/basis/help/html/html.factor b/basis/help/html/html.factor
index 09208749b92f6e870f42f7e44e81d1e4d7a19d25..fbfc42829ee1faaf1d03f2716962ccad2ac48dcb 100644 (file)
--- a/basis/help/html/html.factor
+++ b/basis/help/html/html.factor
@@ -1,11 +1,13 @@
 ! Copyright (C) 2008, 2009 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: io.encodings.utf8 io.encodings.ascii io.encodings.binary
+USING: io.encodings.utf8 io.encodings.binary
 io.files io.files.temp io.directories html.streams help kernel
 assocs sequences make words accessors arrays help.topics vocabs
 vocabs.hierarchy help.vocabs namespaces prettyprint io
 vocabs.loader serialize fry memoize unicode.case math.order
 sorting debugger html xml.syntax xml.writer math.parser ;
+FROM: io.encodings.ascii => ascii ;
+FROM: ascii => ascii? ;
 IN: help.html
 
 : escape-char ( ch -- )