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

cleanup some places to use with-string-writer.

db4
John Benediktsson 2014-05-20 16:18:15 -07:00
parent 380251308e
commit 3ac497c60e
3 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/elf/nm/nm-tests.factor
View File

@ -48,6 +48,6 @@ STRING: validation-output
cpu ppc? [ cpu ppc? [
{ $ validation-output } { $ validation-output }
[ <string-writer> dup [ "resource:extra/elf/a.elf" elf-nm ] with-output-stream >string ] [ [ "resource:extra/elf/a.elf" elf-nm ] with-string-writer ]
unit-test unit-test
] unless ] unless

4
extra/macho/macho-tests.factor
View File

@ -23,9 +23,9 @@ STRING: validation-output
cpu ppc? [ cpu ppc? [
{ $ validation-output } { $ validation-output }
[ <string-writer> dup [ "resource:extra/macho/a.macho" macho-nm ] with-output-stream >string ] [ [ "resource:extra/macho/a.macho" macho-nm ] with-string-writer ]
unit-test unit-test
{ t } [ { t } [
"resource:extra/macho/a2.macho" [ "resource:extra/macho/a2.macho" [
>c-ptr fat-binary-members first data>> >c-ptr macho-header 64-bit? >c-ptr fat-binary-members first data>> >c-ptr macho-header 64-bit?

4
extra/tar/tar.factor
View File

@ -155,8 +155,8 @@ C: <symbolic-link> symbolic-link
: typeflag-L ( header -- ) : typeflag-L ( header -- )
drop drop
; ;
! <string-writer> [ read-data-blocks ] keep ! [ read-data-blocks ] with-string-writer
! >string [ zero? ] trim-tail filename set ! [ zero? ] trim-tail filename set
! filename get prepend-current-directory make-directories ; ! filename get prepend-current-directory make-directories ;
! Multi volume continuation entry ! Multi volume continuation entry