steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

basis: Fix a couple of trivial regressions.

modern-harvey2
Doug Coleman 2017-09-16 10:59:33 -05:00
parent 0a7b50f208
commit 122a73b5ac
2 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/http/http-tests.factor
View File

@ -52,12 +52,14 @@ blah
] with-string-reader ] with-string-reader
] unit-test ] unit-test
<<
CONSTANT: read-request-test-1' [[ POST /bar HTTP/1.1 CONSTANT: read-request-test-1' [[ POST /bar HTTP/1.1
content-length: 4 content-length: 4
content-type: application/octet-stream content-type: application/octet-stream
some-header: 1; 2 some-header: 1; 2
blah]] blah]]
>>
array[ read-request-test-1' ] [ array[ read-request-test-1' ] [
read-request-test-1 lf>crlf read-request-test-1 lf>crlf

2
basis/typed/typed-tests.factor
View File

@ -1,7 +1,7 @@
USING: accessors compiler.units effects eval kernel kernel.private layouts USING: accessors compiler.units effects eval kernel kernel.private layouts
literals math namespaces quotations tools.test typed words words.symbol literals math namespaces quotations tools.test typed words words.symbol
combinators.short-circuit compiler.tree.debugger prettyprint definitions combinators.short-circuit compiler.tree.debugger prettyprint definitions
sequences classes.intersection strings classes.union ; sequences classes.intersection strings classes.union combinators.smart.syntax ;
IN: typed.tests IN: typed.tests
TYPED: f+ ( a: float b: float -- c: float ) TYPED: f+ ( a: float b: float -- c: float )