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

use unless-empty

db4
Doug Coleman 2009-08-11 21:18:43 -05:00
parent 02becc26fc
commit 415d89e821
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 ) : check-fry ( quot -- quot )
dup { load-local load-locals get-local drop-locals } intersect 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? ; PREDICATE: fry-specifier < word { _ @ } memq? ;