[bug #63038] CONST-DOES> curry example fails

[Stephan Rudlof]

URL:
  <https://savannah.gnu.org/bugs/?63038>

                 Summary: CONST-DOES> curry example fails
                 Project: Gforth
               Submitter: hartrock
               Submitted: Fri 09 Sep 2022 01:28:14 AM UTC
                Category: None
                Severity: 3 - Normal
              Item Group: None
                  Status: None
                 Privacy: Public
             Assigned to: None
             Open/Closed: Open
         Discussion Lock: Any


    _______________________________________________________

Follow-up Comments:


-------------------------------------------------------
Date: Fri 09 Sep 2022 01:28:14 AM UTC By: Stephan Rudlof <hartrock>
Example from
  Const-does> (Gforth Manual)
  https://gforth.org/manual/Const_002ddoes_003e.html
fails:

sr@rs:~/Gforth$ cat t_curry.fs
: curry+ ( n1 "name" -- )
1 0 CONST-DOES> ( n2 -- n1+n2 )
    + ;

3 curry+ 3+
sr@rs:~/Gforth$ gforth t_curry.fs 

in file included from *the terminal*:0:-94807120602943: 
in file included from *the terminal*:-1:1: 
t_curry.fs:5:10: error: Stack underflow
3 curry+ >>>3+<<<
Backtrace:
/usr/local/share/gforth/0.7.9_20220901/stuff.fs:90:2:  0 $7F4126569AE0 swap 
/usr/local/share/gforth/0.7.9_20220901/stuff.fs:90:13:  1 $7F4126569B00
compile-literals 
                                         2 $3 
/usr/local/share/gforth/0.7.9_20220901/stuff.fs:106:29:  3 $7F4126569C78
compile-literals 
t_curry.fs:2:5:                          4 $7F41265C20F8 (const-does>) 
sr@rs:~/Gforth$ gforth --version
gforth 0.7.9_20220901 amd64








    _______________________________________________________

Reply to this item at:

  <https://savannah.gnu.org/bugs/?63038>

_______________________________________________
Message sent via Savannah
https://savannah.gnu.org/