ref: 38a9f000997a9c1e3731e40cf918cffafa61c0b0
parent: f84ec55ec4d30f2ecf7e5c51121a141627d66a63
author: jsadler <jsadler@ficl.sf.net>
date: Sun May 13 00:37:56 CDT 2001
<>
--- a/softwords/oo.fr
+++ b/softwords/oo.fr
@@ -250,7 +250,7 @@
current-class @ 8 + dup @ dup 1+ rot ! \ Kludge fix to get to .vtCount before it's defined.
create , , \ ( paramcnt index -- )
does> \ ( inst class pfa -- ptr-inst ptr-class )
- nip 2@ vcall f>s \ ( params offset inst class offset -- f: r )
+ nip 2@ vcall f> \ ( params offset inst class offset -- f: r )
;
\ #endif