Fixing minor bugs

db4
Slava Pestov 2008-04-14 06:04:01 -05:00
parent b7037bf46a
commit 490d7fed0b
5 changed files with 8 additions and 4 deletions

View File

@ -3,7 +3,9 @@ namespaces tools.test xml.writer sbufs sequences html.private ;
IN: html.tests
: make-html-string
[ with-html-stream ] with-string-writer ;
[ with-html-stream ] with-string-writer ; inline
[ [ ] make-html-string ] must-infer
[ ] [
512 <sbuf> <html-stream> drop

View File

@ -194,7 +194,7 @@ M: html-stream stream-nl ( stream -- )
! Utilities
: with-html-stream ( quot -- )
stdio get <html-stream> swap with-stream* ;
stdio get <html-stream> swap with-stream* ; inline
: xhtml-preamble
"<?xml version=\"1.0\"?>" write-html

View File

@ -246,7 +246,7 @@ SYMBOL: deserialized
(deserialize) <wrapper> ;
:: (deserialize-seq) ( exemplar quot -- seq )
deserialize-cell exemplar new
deserialize-cell exemplar new-sequence
[ intern-object ]
[ dup [ drop quot call ] change-each ] bi ; inline

View File

@ -97,7 +97,7 @@ SYMBOL: prolog-data
#! advance spot to after the substring.
[ [
dup slip swap dup [ get-char , ] unless
] skip-until ] "" make nip ;
] skip-until ] "" make nip ; inline
: rest ( -- string )
[ f ] take-until ;

View File

@ -6,6 +6,8 @@ USING: kernel xml tools.test io namespaces sequences xml.errors xml.entities
continuations assocs sequences.deep ;
! This is insufficient
\ read-xml must-infer
SYMBOL: xml-file
[ ] [ "extra/xml/tests/test.xml" resource-path
[ file>xml ] with-html-entities xml-file set ] unit-test