Tue Jun 5 08:42:16 EDT 2012
Need to get back literal strings. Some options:
- store in separate segment + provide word which loads pointer as literal
- inline code: store as Pascal string + use return address to locate + skip
-> 2 versions: skip / drop. I think I had drop before.
See string.f :
: f-> \ --
TOSL @ fl !
TOSH @ fh !
: foo f-> 3 , 65 , 65 , 65 ,
: .foo foo @f+ for @f+ emit next ;
There seems to be symbolic quotation using '`' but I forgot how to
then compile this to a byte sequence using ','
It's 'string,' but something's broken. Yep, '->byte-list' didn't