Refactor the lexer/parser to expose friendlier words for scanning tokens. The preferr...

[factor.git] / extra / units / reduction / reduction.factor

diff --git a/extra/units/reduction/reduction.factor b/extra/units/reduction/reduction.factor
index 52279771f9cd6c36c5ebb450f26ceb69d562ebab..6f67f163faab6d4e9227faa76f552bc68ac32d8b 100644 (file)
--- a/extra/units/reduction/reduction.factor
+++ b/extra/units/reduction/reduction.factor
@@ -55,4 +55,4 @@ ERROR: bad-storage-string string reason ;
 : n>money ( n -- string )
     3 10 { "" "K" "M" "B" "T" } reduce-magnitude ;
 
-SYNTAX: STORAGE: scan storage>n suffix! ;
+SYNTAX: STORAGE: scan-token storage>n suffix! ;