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

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/lsys/strings/strings.factor
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 ; : next+rest ( slice -- next rest ) [ 1 head ] [ 1 tail-slice ] bi ;