INSTANCE: array sequence
-: >array ( seq -- array ) { } clone-like ;
+: >array ( seq -- array ) { } clone-like ; inline
: 1array ( x -- array ) 1 swap <array> ; inline
: 2array ( x y -- array ) { } 2sequence ; inline
: 3array ( x y z -- array ) { } 3sequence ; inline
(byte-array) 0 byte-vector boa ; inline\r
\r
: >byte-vector ( seq -- byte-vector )\r
- >byte-array dup length byte-vector boa ;\r
+ >byte-array dup length byte-vector boa ; inline\r
\r
M: byte-vector like\r
drop dup byte-vector? [\r
M: f new-assoc drop <hashtable> ; inline
: >hashtable ( assoc -- hashtable )
- H{ } assoc-clone-like ;
+ H{ } assoc-clone-like ; inline
M: hashtable assoc-like
drop dup hashtable? [ >hashtable ] unless ; inline
syn cluster factorNumber contains=@factorReal,factorComplex
syn cluster factorNumErr contains=factorBinErr,factorHexErr,factorOctErr
syn match factorInt /\<-\=[0-9]\([0-9,]*[0-9]\)\?\([eE]\([+-]\)\?[0-9]\+\)\?\>/
-syn match factorFloat /\<-\=\([0-9,]*[0-9]\)\?\(\.\(\([0-9,]*[0-9]\+\)\?\([eE]\([+-]\)\?[0-9]\+\)\?\)\?\)\?\>/
+syn match factorFloat /\<-\=[0-9]\([0-9,]*[0-9]\)\?\(\.\(\([0-9,]*[0-9]\+\)\?\([eE]\([+-]\)\?[0-9]\+\)\?\)\?\)\?\>/
syn match factorPosRatio /\<+\=[0-9]\([0-9,]*[0-9]\)\?\(+[0-9]\([0-9,]*[0-9]\+\)\?\)\?\/-\=[0-9]\([0-9,]*[0-9]\+\)\?\.\?\>/
syn match factorNegRatio /\<\-[0-9]\([0-9,]*[0-9]\)\?\(\-[0-9]\([0-9,]*[0-9]\+\)\?\)\?\/-\=[0-9]\([0-9,]*[0-9]\+\)\?\.\?\>/
syn region factorComplex start=/\<C{\>/ end=/\<}\>/ contains=@factorReal