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

syntax: remove BIN: HEX: OCT:

db4
Joe Groff 2011-11-23 20:07:33 -08:00
parent 6d1a28aca6
commit 07abeee9d9
3 changed files with 3 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
core/bootstrap/syntax.factor
View File

@ -16,7 +16,6 @@ IN: bootstrap.syntax
":" ":"
";" ";"
"<PRIVATE" "<PRIVATE"
"BIN:"
"B{" "B{"
"BV{" "BV{"
"C:" "C:"
@ -26,7 +25,6 @@ IN: bootstrap.syntax
"FORGET:" "FORGET:"
"GENERIC#" "GENERIC#"
"GENERIC:" "GENERIC:"
"HEX:"
"HOOK:" "HOOK:"
"H{" "H{"
"HS{" "HS{"
@ -37,7 +35,6 @@ IN: bootstrap.syntax
"MATH:" "MATH:"
"MIXIN:" "MIXIN:"
"NAN:" "NAN:"
"OCT:"
"P\"" "P\""
"POSTPONE:" "POSTPONE:"
"PREDICATE:" "PREDICATE:"

6
core/math/parser/parser-docs.factor
View File

@ -65,7 +65,7 @@ HELP: bin>
$nl $nl
"Outputs " { $link f } " if the string does not represent a number." } ; "Outputs " { $link f } " if the string does not represent a number." } ;
{ >bin POSTPONE: BIN: bin> .b } related-words { >bin bin> .b } related-words
HELP: oct> HELP: oct>
{ $values { "str" string } { "n/f" "a real number or " { $link f } } } { $values { "str" string } { "n/f" "a real number or " { $link f } } }
@ -73,7 +73,7 @@ HELP: oct>
$nl $nl
"Outputs " { $link f } " if the string does not represent a number." } ; "Outputs " { $link f } " if the string does not represent a number." } ;
{ >oct POSTPONE: OCT: oct> .o } related-words { >oct oct> .o } related-words
HELP: hex> HELP: hex>
{ $values { "str" string } { "n/f" "a real number or " { $link f } } } { $values { "str" string } { "n/f" "a real number or " { $link f } } }
@ -81,7 +81,7 @@ HELP: hex>
$nl $nl
"Outputs " { $link f } " if the string does not represent a number." } ; "Outputs " { $link f } " if the string does not represent a number." } ;
{ >hex POSTPONE: HEX: hex> .h } related-words { >hex hex> .h } related-words
HELP: >base HELP: >base
{ $values { "n" real } { "radix" "an integer between 2 and 16" } { "str" string } } { $values { "n" real } { "radix" "an integer between 2 and 16" } { "str" string } }

4
core/syntax/syntax.factor
View File

@ -70,10 +70,6 @@ IN: bootstrap.syntax
scan-token scan-token "=>" expect scan-token add-renamed-word scan-token scan-token "=>" expect scan-token add-renamed-word
] define-core-syntax ] define-core-syntax
"HEX:" [ 16 parse-base ] define-core-syntax
"OCT:" [ 8 parse-base ] define-core-syntax
"BIN:" [ 2 parse-base ] define-core-syntax
"NAN:" [ 16 scan-base <fp-nan> suffix! ] define-core-syntax "NAN:" [ 16 scan-base <fp-nan> suffix! ] define-core-syntax
"f" [ f suffix! ] define-core-syntax "f" [ f suffix! ] define-core-syntax