byte-length on f outputs 0

db4
Slava Pestov 2009-02-06 10:16:51 -06:00
parent 5579de1722
commit 33b513fb05
1 changed files with 2 additions and 0 deletions

View File

@ -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 ]