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

use unless-empty

Doug Coleman 2009-08-11 21:18:43 -05:00
parent aa71f27094
commit 22a68e8613
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/fry/fry.factor
View File

@ -26,7 +26,7 @@ M: >r/r>-in-fry-error summary
: check-fry ( quot -- quot )
dup { load-local load-locals get-local drop-locals } intersect
empty? [ >r/r>-in-fry-error ] unless ;
[ >r/r>-in-fry-error ] unless-empty ;
PREDICATE: fry-specifier < word { _ @ } memq? ;