• Re: Expert systems in forth

    From marcel hendrix@mhx@iae.nl to comp.lang.forth on Sun Jul 12 19:58:56 2026
    From Newsgroup: comp.lang.forth

    On 1/5/2025 6:52 AM, ahmed wrote:
    [..]
    1- For exapmple, I can't use [']-a in a colon definition:
    defer go

    : go1 ..... ;
    : use_go ['] go1 is go ;
    doesn't work for me.

    ['] is fine, but you need [IS] , not IS .
    2- The forth word latest (gforth) is not defined in iForth:
    I used latest in the definition of the forth word fact.
    I modified the defintion of fact to get rid of latest.

    That is @LATEST

    iSPICE> help @LATEST
    @LATEST IFORTH
    ( -- dea )
    Get the dictionary entry address of the latest header that was created
    in the current wordlist (the one accessed with GET-CURRENT SET-CURRENT )
    . ok

    3- The forth words place and +place are not defined in iForth:
    I borrowed the definitions from gforth.

    place is called PACK , +PLACE is called PLACE+ .

    So I managed to get it working under: gforth, iForth, vfxForth anf
    minforth (MF348).

    Ahmed
    -marcel
    --- Synchronet 3.22a-Linux NewsLink 1.2
  • From dxf@dxforth@gmail.com to comp.lang.forth on Sun Jul 19 15:37:26 2026
    From Newsgroup: comp.lang.forth

    On 13/07/2026 3:58 am, marcel hendrix wrote:
    On 1/5/2025 6:52 AM, ahmed wrote:
    [..]
    3- The forth words place and +place are not defined in iForth:
    I borrowed the definitions from gforth.

    place is called PACK , +PLACE is called PLACE+ .

    Presumably that's PACK DROP

    Just about every forth has PLACE while hardly any have PACK. I have both
    as PACK has proven too handy e.g.

    : !fn ( a u handle -- a' u' )
    >r -blanks max-path umin r> cell+ pack count 2dup upper ;

    Have only seen PACK in the odd Euro forth. Anyone know its exact origin?

    --- Synchronet 3.22a-Linux NewsLink 1.2
  • From marcel hendrix@mhx@iae.nl to comp.lang.forth on Sun Jul 19 18:01:25 2026
    From Newsgroup: comp.lang.forth

    On 7/19/2026 7:37 AM, dxf wrote:
    On 13/07/2026 3:58 am, marcel hendrix wrote:
    On 1/5/2025 6:52 AM, ahmed wrote:
    [..]
    3- The forth words place and +place are not defined in iForth:
    I borrowed the definitions from gforth.

    place is called PACK , +PLACE is called PLACE+ .

    Presumably that's PACK DROP

    Just about every forth has PLACE while hardly any have PACK. I have both
    as PACK has proven too handy e.g.

    : !fn ( a u handle -- a' u' )
    >r -blanks max-path umin r> cell+ pack count 2dup upper ;

    Have only seen PACK in the odd Euro forth. Anyone know its exact origin?


    PACK ( drop ) was mentioned in the BASIS documents we tracked for the
    Dutch tForth project (transputer Forth).

    I have learned not to use nice names for (as yet) unstandardized
    features because the name or functionality may change.

    -marcel
    --- Synchronet 3.22a-Linux NewsLink 1.2
  • From dxf@dxforth@gmail.com to comp.lang.forth on Mon Jul 20 15:30:23 2026
    From Newsgroup: comp.lang.forth

    On 20/07/2026 2:01 am, marcel hendrix wrote:
    On 7/19/2026 7:37 AM, dxf wrote:
    On 13/07/2026 3:58 am, marcel hendrix wrote:
    On 1/5/2025 6:52 AM, ahmed wrote:
    [..]
    3- The forth words place and +place are not defined in iForth:
    I borrowed the definitions from gforth.

    place is called PACK , +PLACE is called PLACE+ .

    Presumably that's PACK DROP

    Just about every forth has PLACE while hardly any have PACK.-a I have both >> as PACK has proven too handy e.g.

    -a-a : !fn ( a u handle -- a' u' )
    -a-a-a-a >r-a -blanks-a max-path umin-a r> cell+ pack count-a 2dup upper ; >>
    Have only seen PACK in the odd Euro forth.-a Anyone know its exact origin? >>

    PACK ( drop ) was mentioned in the BASIS documents we tracked for the Dutch tForth project (transputer Forth).

    I have learned not to use nice names for (as yet) unstandardized features because the name or functionality may change.

    Scanning my files I found CHForth, eForth, Mitch Bradley, had PACK. The last two I didn't expect.

    --- Synchronet 3.22a-Linux NewsLink 1.2