Skip to content

Commit

Permalink
basis/extra: use some vocab: paths
Browse files Browse the repository at this point in the history
  • Loading branch information
mrjbq7 committed Feb 4, 2024
1 parent 43279af commit b54f1e1
Show file tree
Hide file tree
Showing 4 changed files with 10 additions and 10 deletions.
8 changes: 4 additions & 4 deletions basis/colors/colors.factor
Original file line number Diff line number Diff line change
Expand Up @@ -52,10 +52,10 @@ CONSTANT: transparent T{ rgba f 0.0 0.0 0.0 0.0 }

MEMO: colors ( -- assoc )
{
"resource:basis/colors/rgb.txt"
"resource:basis/colors/css-colors.txt"
"resource:basis/colors/factor-colors.txt"
"resource:basis/colors/solarized-colors.txt"
"vocab:colors/rgb.txt"
"vocab:colors/css-colors.txt"
"vocab:colors/factor-colors.txt"
"vocab:colors/solarized-colors.txt"
} [
utf8 file-lines parse-colors
] [ assoc-union ] map-reduce ;
Expand Down
8 changes: 4 additions & 4 deletions extra/elf/elf-tests.factor
Original file line number Diff line number Diff line change
Expand Up @@ -45,7 +45,7 @@ cpu ppc? [
}
}
[
"resource:extra/elf/a.elf" [
"vocab:elf/a.elf" [
sections [ name>> ] map
] with-mapped-elf
]
Expand Down Expand Up @@ -74,7 +74,7 @@ unit-test
}
}
[
"resource:extra/elf/a.elf" [
"vocab:elf/a.elf" [
segments [ program-header>> p_type>> PT_LOAD = ] find nip
sections [ name>> ] map
] with-mapped-elf
Expand Down Expand Up @@ -158,7 +158,7 @@ unit-test
}
}
[
"resource:extra/elf/a.elf" [
"vocab:elf/a.elf" [
sections ".symtab" find-section symbols
[ name>> ] map
] with-mapped-elf
Expand All @@ -172,7 +172,7 @@ unit-test
}
}
[
"resource:extra/elf/a.elf" [
"vocab:elf/a.elf" [
sections ".symtab" "main" find-section-symbol
symbol-data >byte-array
] with-mapped-elf
Expand Down
2 changes: 1 addition & 1 deletion extra/elf/nm/nm-tests.factor
Original file line number Diff line number Diff line change
Expand Up @@ -48,6 +48,6 @@ STRING: validation-output

cpu ppc? [
{ $ validation-output }
[ [ "resource:extra/elf/a.elf" elf-nm ] with-string-writer ]
[ [ "vocab:elf/a.elf" elf-nm ] with-string-writer ]
unit-test
] unless
2 changes: 1 addition & 1 deletion extra/usa-cities/usa-cities.factor
Original file line number Diff line number Diff line change
Expand Up @@ -28,7 +28,7 @@ TUPLE: city
first-zip name state latitude longitude gmt-offset dst-offset ;

MEMO: cities ( -- seq )
"resource:extra/usa-cities/zipcode.csv" ascii file>csv
"vocab:usa-cities/zipcode.csv" ascii file>csv
rest-slice [
[
{
Expand Down

0 comments on commit b54f1e1

Please sign in to comment.