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

Fix test failures

db4
Slava Pestov 2008-09-06 02:16:44 -05:00
parent 18cc66f64e
commit 99cf4354bc
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -25,7 +25,7 @@ blah
[ [
T{ request T{ request
{ url T{ url path: "/bar" } } { url T{ url { path "/bar" } } }
{ method "POST" } { method "POST" }
{ version "1.1" } { version "1.1" }
{ header H{ { "some-header" "1; 2" } { "content-length" "4" } { "content-type" "application/octet-stream" } } } { header H{ { "some-header" "1; 2" } { "content-length" "4" } { "content-type" "application/octet-stream" } } }

6
extra/cfdg/cfdg.factor
View File

@ -159,7 +159,7 @@ MACRO: rule ( seq -- quot ) [rule] ;
VAR: background VAR: background
: set-initial-background ( -- ) T{ hsva syntax:f 0 0 1 1 } clone >self ; : set-initial-background ( -- ) T{ hsva f 0 0 1 1 } clone >self ;
: set-background ( -- ) : set-background ( -- )
set-initial-background set-initial-background
@ -174,7 +174,7 @@ VAR: viewport ! { left width bottom height }
VAR: start-shape VAR: start-shape
: set-initial-color ( -- ) T{ hsva syntax:f 0 0 0 1 } clone >self ; : set-initial-color ( -- ) T{ hsva f 0 0 0 1 } clone >self ;
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
@ -245,7 +245,7 @@ SYMBOL: the-slate
C[ dlist get [ dlist get 1 glDeleteLists ] when ] >>ungraft C[ dlist get [ dlist get 1 glDeleteLists ] when ] >>ungraft
<handler> <handler>
H{ } clone H{ } clone
T{ key-down syntax:f syntax:f "ENTER" } C[ drop rebuild ] swap pick set-at T{ key-down f f "ENTER" } C[ drop rebuild ] swap pick set-at
T{ button-down } C[ drop rebuild ] swap pick set-at T{ button-down } C[ drop rebuild ] swap pick set-at
>>table ; >>table ;