byte-length on f outputs 0

2009-02-06 10:16:51 -06:00 · 2009-02-06 10:16:51 -06:00 · 33b513fb05
parent 5579de1722
commit 33b513fb05
1 changed files with 2 additions and 0 deletions
--- a/basis/alien/c-types/c-types.factor
+++ b/basis/alien/c-types/c-types.factor
@ -178,6 +178,8 @@ GENERIC: byte-length ( seq -- n ) flushable

 M: byte-array byte-length length ;

+M: f byte-length drop 0 ;
+
 : c-getter ( name -- quot )
    c-type-getter [
        [ "Cannot read struct fields with this type" throw ]