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

[factor.git] / basis / functors / backend / backend.factor

diff --git a/basis/functors/backend/backend.factor b/basis/functors/backend/backend.factor
index 9ade1d50f894c15b2932009a69bb1e72ed117cf4..0bdbb03ab10fa8f5b57b3e99e0901f2a546e1468 100644 (file)
--- a/basis/functors/backend/backend.factor
+++ b/basis/functors/backend/backend.factor
@@ -23,7 +23,7 @@ SYNTAX: FUNCTOR-SYNTAX:
     scan-token >string-param ;
 
 : scan-c-type-param ( -- c-type/param )
-    scan dup "{" = [ drop \ } parse-until >array ] [ >string-param ] if ;
+    (scan-token) dup "{" = [ drop \ } parse-until >array ] [ >string-param ] if ;
 
 : define* ( word def -- ) over set-word define ;