Return to paths.fs CVS log | Up to [gforth] / gforth / kernel |
version 1.7, 1998/12/13 23:30:03 | version 1.8, 1998/12/22 23:11:30 |
---|---|
Line 63 | Line 63 |
2dup c! char+ swap move ; | 2dup c! char+ swap move ; |
[THEN] | [THEN] |
create sourcepath 256 chars , 0 , 256 chars allot | create sourcepath 1024 chars , 0 , 1024 chars allot \ !! make this dynamic |
sourcepath avalue fpath | sourcepath avalue fpath |
: also-path ( adr len path^ -- ) | : also-path ( adr len path^ -- ) |