lsys.strings: minor update

db4
Eduardo Cavazos 2008-06-10 09:07:45 -05:00
parent eeca9043ff
commit 1038a37ddb
1 changed files with 1 additions and 1 deletions

View File

@ -5,7 +5,7 @@ IN: lsys.strings
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
: has-param? ( slice -- ? ) { [ length 1 > ] [ second CHAR: ( = ] } <-&& ;
: has-param? ( slice -- ? ) { [ length 1 > ] [ second CHAR: ( = ] } 1&& ;
: next+rest ( slice -- next rest ) [ 1 head ] [ 1 tail-slice ] bi ;