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

fix some tests broken by the prepend change.

db4
John Benediktsson 2012-05-29 16:58:58 -07:00
parent 915176822b
commit 180ad0aabf
4 changed files with 15 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/http/http.factor
View File

@ -144,7 +144,7 @@ redirects ;
pick header>> set-at ; pick header>> set-at ;
: set-basic-auth ( request username password -- request ) : set-basic-auth ( request username password -- request )
":" glue >base64 "Basic " prepend "Authorization" set-header ; ":" glue >base64 "Basic " "" prepend-as "Authorization" set-header ;
: <request> ( -- request ) : <request> ( -- request )
request new request new

12
extra/asn1/asn1.factor
View File

@ -153,18 +153,18 @@ SYMBOL: end
GENERIC: >ber ( obj -- byte-array ) GENERIC: >ber ( obj -- byte-array )
M: fixnum >ber ( n -- byte-array ) M: fixnum >ber ( n -- byte-array )
>128-ber dup length 2 swap 2array >128-ber dup length 2 swap 2array
"cc" pack-native prepend ; "cc" pack-native B{ } prepend-as ;
: >ber-enumerated ( n -- byte-array ) : >ber-enumerated ( n -- byte-array )
>128-ber >byte-array dup length 10 swap 2array >128-ber dup length 10 swap 2array
"CC" pack-native prepend ; "CC" pack-native B{ } prepend-as ;
: >ber-length-encoding ( n -- byte-array ) : >ber-length-encoding ( n -- byte-array )
dup 127 <= [ dup 127 <= [
1array "C" pack-be 1array "C" pack-be
] [ ] [
1array "I" pack-be 0 swap remove dup length 1array "I" pack-be 0 swap remove dup length
0x80 + 1array "C" pack-be prepend 0x80 + 1array "C" pack-be B{ } prepend-as
] if ; ] if ;
! ========================================================= ! =========================================================
@ -172,11 +172,11 @@ M: fixnum >ber ( n -- byte-array )
! ========================================================= ! =========================================================
M: bignum >ber ( n -- byte-array ) M: bignum >ber ( n -- byte-array )
>128-ber >byte-array dup length >128-ber dup length
dup 126 > [ dup 126 > [
"range error in bignum" throw "range error in bignum" throw
] [ ] [
2 swap 2array "CC" pack-native prepend 2 swap 2array "CC" pack-native B{ } prepend-as
] if ; ] if ;
! ========================================================= ! =========================================================

2
extra/gpu/render/render.factor
View File

@ -217,7 +217,7 @@ M: uniform-tuple (bind-uniforms)
: all-uniform-tuple-slots ( class -- slots ) : all-uniform-tuple-slots ( class -- slots )
dup "uniform-tuple-slots" word-prop dup "uniform-tuple-slots" word-prop
[ swap superclass all-uniform-tuple-slots prepend ] [ drop { } ] if* ; [ [ superclass all-uniform-tuple-slots ] dip append ] [ drop { } ] if* ;
DEFER: uniform-texture-accessors DEFER: uniform-texture-accessors

2
extra/mason/report/report.factor
View File

@ -8,7 +8,7 @@ combinators.short-circuit literals splitting ;
IN: mason.report IN: mason.report
: git-link ( id -- link ) : git-link ( id -- link )
[ "http://github.com/slavapestov/factor/commit/" prepend ] keep [ "http://github.com/slavapestov/factor/commit/" "" prepend-as ] keep
[XML <a href=<->><-></a> XML] ; [XML <a href=<->><-></a> XML] ;
: common-report ( -- xml ) : common-report ( -- xml )